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MEET SAXZG&N 



SARGON is a computer chess program by Dan and Kathe Spracklen. In March 
1978 it took first place in the first chess tournament held strictly for microcom- 
puters. The tournament took place during the 2Vt days of the 1978 West Coast 
Computer Faire and drew large crowds each day. When the last battle ended, 
SARGON had won 5 games of 5 played. A tie existed for second place, with 3 
programs. scoring a total of 3 points in the 5 rounds. 

SARGON is written in Z-80 assembly language using the TDL Macro 
Assembler. The program occupies 8K of RAM, which includes 2K of data areas, 
2K graphics display and user interface, and 4K move logic. The move logic is the 
heart of SARGON. It is displayed in the block diagram as the set of routines 
called by FNDMOV (Find Move). FNDMOV controls the search for the comput- 
er's best move by performing a depth first-tree search using the techniques of 
alpha beta pruning. Listed first under FNDMOV's calls on the biock diagram is 
PINFND (Pin Find Routine). PINFND produces a list of all pieces pinned 
against the king or queen for both white and black. Pinned pieces must be 
treated carefully when analyzing battles engaged on the chess board, since their 
attacking power may be an illusion. FNDMOV also calls POINTS (Point Evalu- 
ation Routine). POINTS performs a static evaluation and derives a score for a 
given board position. POINTS takes factors of material, board control, and 
development into account. Predominant in the evaluation is material. Material 
scores must be adjusted to reflect unresolved battles on the chess board. It is the 
function of XCHNG (Exchange Evaluation Routine) to judge the outcome of 
these unresolved battles. The factors of development and board control are not 
allowed to dominate the move choice. LIMIT is called to truncate the contribu- 
tion of those factors to the score. 

FNDMOV controls the generation of legal moves by GENMOV (Generate 
Move Routine). GENMOV produces the move set for all of the pieces of a given 
color. For each piece in turn, GENMOV calls MPIECE (Piece Mover Routine), 
which generates all the possible lagal moves for a given piece. MPIECE itself 
calls a series of routines. PATH generates a single possible move for a given 
piece along its current path of motion. ADMOVE adds a move to the move list. 
CASTLE and ENP3NT (En Passant Pawn Capture Routine) handle the special 
moves. After MPIECE has produced all legal moves. GENMOV calls INCHK, 
which determines whether or not the king is in check. 

Basic to the success of alpha beta pruning is the sorting of moves generated 
at each ply level. FNDMOV calls SOUTM (Sort Routine) to accomplish this task. 
A sort is dependent on an evaluation, so SORTM calls EVAL (.Evaluation 
Routine). To evaluate a given move on the move list, EVAL ilrst makes the move 
on the board by calling MOVE. It is determined if the move is legal by calling 
INCHK. Then, if the move is legal, it is evaluated by calling PNFND and 
POINTS. Finally, EVAL restores the board position by "calling UNMOVE. 

The bookkeeping required by alpha beta pruning is for the most part coded 
in line in FNDMOV. However, FNDMOV calls ASCEND (Ascend Tree Routine) 



to adjust all the parameters in transferring the parameters up one ply in the 
tree. 

At the bottom of FNDMO Vb call list on the block diagram is BOOK. BOOK 
provides an opening book of a single move. If white, SARGON will play P-K4 or 
P-Q4 at random. If black, SARGON replies to any opening move with P-K4 or 
P-Q4, whichever is most appropriate. 

The move selection logic of FNDMOV is embedded in a whole network of 
routines that forms SARGON's interface to the outside world. The DRIVER 
routine initiates and coordinates the entire game. First on the block diagram in 
DRIVER'S ttst of calls is CHARTR (Accept Input Character). CHARTR is a 
totally machine-dependent input routine whose sole purpose is to accept a single 
character input from the keyboard. All machine-dependent aspects of SARGON 
have been isolated in this manner to simplify conversion to Z-80 machines 
running under different operating systems. Machine-dependent code appears in 
only two other places. The first is the macro definition area, where all the output 
functions are listed, and the second is in the routine DSPBRD (Display Graphics 
Board and Pieces), where machine-dependent lines of code are clearly marked. 

Next on the block diagram is ANALYS (Set Up Position for Analysis). 
ANALYS allows the user to set the board to any position of his choosing. The 
routine blinks the graphics board squares in turn, allowing the user to input a 
piece of his choice or leave the contents unchanged. When the board has been set 
to the desired arrangement of pieces, play of the game may be resumed. 
ANALYS also provides a handy means of correcting a move entered by mistake. 

As a part of game initialization, DRIVER calls INTERR (Interrogate for Ply 
and Color). INTERR questions the player for his choice of white or black, and 
allows him to select the depth of search. DSPBRD and INITBD complete ini- 
tialization by setting up the graphics board display and internal board array. 
PGIFND (New Page if Needed) and TBCPCL (Tab to Computer's Colnmn) are 
used to control spacing in the move list. The move list is displayed to the left of the 
graphics board on the video screen. 

The most important routines called by DRIVER are, of course, CPTRMV and 
PLYRMV, which are control routines for the computer's and player's moves, 
respectively. Central to CPTRMV is FNDMOV, the logic to select the computer's 
move, which has already been discussed. Below FNDMOV on the block diagram is 
FCDMAT (Forced Mate Handling). If the computer is checkmated, it acknowl- 
edges the fact with a message displayed in the move list and by tipping over its 
king. Assuming the computer is not mated, MOVE makes the chosen mow on the 
board array and EXECMV displays it on the graphics board. In displaying the 
move, the piece first blinks a few times, moves to its new location, and then blinks 
a few times again. The function of BITASN tBoard Index to ASCII Square Name) 
is to convert the internal move into a representation in algebraic chess notation on 
the move list, then INCHK determines whether or not the computer should call 
"Check." 

When the opponent is on the move, PLYRMV controls the events. It calls 
CHARTR to accept the move entry. ASNTBI (ASCII Square Name to Board 
Index) converts the move to internal representation. Then VALMOV checks the 



player's move for validity. If the move is legal, EXECMV displays it on the 
graphics board as in CPTRM V. PGIFND (New Page if Needed) and TBPLCL (Tab 
to Player's Column) control spacing in the move list. 

The Chess Board, in Computer Graphics 

A graphics display is an eye-catching addition to a chess program. For the 
human player, a visual display of the board is far easier to relate to than a 
scheme which creates an array using purely alphabetic characters. Graphics 
display requires specialized hardware, and degree of resolution varies with 
existing displays. The SARGON program features a complete graphics board 
display. The video screen of the Jupiter III microcomputer, on which it is 
implemented, has a 96 x 128 dot graphics matrix. The screen display is con- 
trolled by a 2k area of static RAM. Information may be displayed on the screen 
by storing the desired values in that 2k area. So only move instructions are 
required for graphics display. 

The SARGON display utilizes 96 x 96 dots for the graphics chess board. The 
remaining area is used to list the moves of the game in algebraic chess notation. 
The display is arranged as follows: 
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The empty board and move list area are displayed using the block move 
feature of the Z-80. It requires no stored data. The memory required to store the 
piece shapes has been kept to a minimum through use of thfc concept of boundary 
and kernel dots. 

Graphics Control 

On the Jupiter III System, every graphics byte is of the form: 

1X,Y 4 Y 3 Y.Y.Y, 

where: 1 — Indicates a graphics character 

X — Is unimportant, .may be or 1 with no effect on the resultant 
graphics character. 
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Graphics Characters 

By varying and combining bits that are turned on, a total of 64 different 
graphics characters may be produced. For example: 



10110 2)101 gives 



§ 



Now, 1010 0101 = 165 in decimal, which can be used as the ASCII code for 
this character. 

Pillar and Bar Formating 

We've seen how individual dots are grouped Into blocks of six dots each. The 
blocks are then laid out like tiles to cover the display area. So a dot matrix that is 
12 x 12 would look like: 
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CHESS PIECE SUSlSfAMtT 



Eni'K square is 12 x 12 graphics dots, 
anil 6x4 bytes. 

No piece affects the 1 byte pillar at each 
side of the square. So the true region 
involved is 8 x 12 dots or 4 x 4 bytes. 

Boundary dots are the color oppo- 
site that of the square. 



□ 



Kernel dots are the color of the 
piece. 

The top left corner of a square is the 
norm of the square. 

80H— White square 
BFH— Black square 

It is also the base address of the square. 
Addresses of the alterable portions of 
the square relative to the base address 
are on the chart. The alterable portions 
of the square are referred to as the field. 
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Field 



For each type of piece the tables on the following pages will give the piece 
shape and four field configurations: 

Black on White 
Black on Black 
White on Black 
White on White 



All field values are in hexadecimal. Only the black on white configuration is 
stored in the graphics data base. 



KING 



Black on White 

80 B8 90 80 

BC BA B8 94 

AF BF BF 85 

83 83 83 61 

Black on Black 

BF 87 AF BF 
A3 85 A7 AB 
9A BF 9F BA 
BC BC BC BE 



White on Black 

BF 87 AF BF 

83 85 87 AB 

90 80 80 BA 

BC BC BC BE 

White on White 

80 B8 90 80 

9C BA 98 94 

A5 80 A0 85 

83 83 83 81 




Black on White: 

90 80 80 90 

BF B4 BE 95 

8B BF 9F 81 

83 83 83 81 

Black on Black 

AF BF BF AF 
A8 9B B9 AA 
B6 AF A7 BE 
BC BC BC BE 



QUEEN 

White on Black 

AF BF BF AF 
80 8B 81 AA 
B4 80 A0 BE 
BC BC BC BE 

White on White 

90 80 80 90 

97 A4 86 95 

89 90 98 81 

83 83 83 81 




ROOK 



X X 

/ \ • \ 
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x x, 
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flfocA on WAL'<? 

80 80 80 80 

8A BE BD 85 

80 BF BF 80 

82 83 83 81 

Black on Black 

BF BF BF BF 
B5 Al 92 BA 
BF AA 95 BF 
BD BC BC BE 



White on Black 

BF BF BF BF 
B5 81 82 BA 
BF 80 80 BF 
BD BC BC BE 

White on White 

80 80 80 80 

8A 9E AD 85 

80 95 AA 80 

82 83 83 81 



BISHOP 
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1 x 1 
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Black on White 

80 A0 80 80 

A8 BF BD 80 

82 AF 87 80 

82 83 83 80 

Black on Black 

BF 9F BF BF 
97 BE 96 BF 
BD 9B B9 BF 
BD BC BC BF 



White on Black 

BF 9F BF BF 
97 80 82 BF 
BD 90 B8 BF 
BD BC BC BF 

White on White 

80 A0 80 80 

A8 81 A9 80 

82 A4 86 SO 

82 83 83 80 
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KNIGHT 



Black on White 

80 BO 60 80 

BE BF BF 95 

A0 BF BF 85 

83 83 83 81 

Black on BlZck 

BF 8F ' 8F BF 
89 AF BF AA 
9F B9 9F BA 
BC BC BC BE 



White on Black 

BF 8F 8F BF 
81 80 80 AA 
9F 81 BF BA 
BC BC BC BE 

White on White 

80 BO BO 80 

B6 90 80 95 

AO 86 AO 85 

83 83 83 81 
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PAWN 



Black on Whife' 

80 80 80 80 

80 AO 90 80 

80 AF 9F 80 

80 83 83 80 

Block on Black 

BF BF BF BF 
BF 9F AF BF 
BF 9A A5 BF 
BF BC BC BF 



White on Black 

BF BF BF BF 
BF 9F AF BF 
BF 90 AO BF 
BF BC BC BF 

White on White 

80 80 80 80 

80 AO 90 80 

80 A5 9A 80 

80 83 83 80 
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TOPPLED KING 



Black on White 

90 BO BO BO 
BF BF B7 60 
9F BF BD 80 
80 80 88 9D 

Black on Black 

AF 8F 8F BF 

A8 BF 89 BF 

A2 8F 86 BF 

BF BF B7 A2 




For any byte the 10 in bits 6 and 7 must remain. 

Boundary bytes are complemented if a piece moves to another color square. 

Kernel bytes must be moved in from a table in memory. Only one color need 
be stored, since the other color is the complement. For each piece, the kernel will 
be composed of 6 bytes to be transferred to base plus 41H. 42H, 43H, 81H, 82H, 
and 83H. Only the black on black values are stored in the graphics data base. 



Black 



on White 



KING BC BA B8 AF BF BF 

QUEEN BF B4 BE 8B BF 9F 

ROOK 8A BE BD 80 BF BF 

BISHOP A8 BF BD 82 AF 87 

KNIGHT BE BF BF A0 BE BF 

PAWN 60 A0 90 80 AF 9F 



on Black 

A3 85 A7 9A BF 9F 

A8 9B B9 B6 AF A7 

B5 Al 92 BF AA 95 

97 BE 96 BD 9B B9 

89 AF BF 9F B9 9F 

BF 9F AF BF 9A A5 



Thus, the entire data base required for all pieces to be displayed occupies 
only 154 bytes of storage. 
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User's Guide to SAJiGON 

1. To begin execution: 

The start address of S ARGON will vary depending on the load address. It will 
always be the address of DRIVER. Once execution has begun, SARGON will ask 
you a series of questions: 

"Welcome to Chess. Care for a Game?" 

To play a game of chess respond with "y." An answer of "n" will get you to 
the routine that allows you to set up a board position. {See Item 5.) 

"Would you like to play white (w) or black (b}7" 

The player selects white by entering "w" or black by "b." Any other key 
defaults to black. White always moves first. 

"Select look ahead (1-6)." 

This allows the player to select the depth of search. For example, if you select 3 
ply, SARGON will consider: 

1. All of his possible moves. 

2. All of your responses to those move3. 

3. All of his possible replies to your responses. 

At this point, the board display will appear on the screen. If you choose white, 
SARGON will be waiting for your move entry. If you choose black, SARGON 
will make its move on the board, print it in the move list, and then wait for your 
move entry. 

2. To enter a move: 

Moves must be entered in algebraic chess notation. This means you must tell 
SARGON the file and rank coordinates of the squares you are moving from and 
to. The files are lettered a-h and the ranks are numbered 1-8. So the coordinates 
of the board are: 
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b8 


c8 
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e8 


f8 
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The move itself is entered as ff-tt, so to play the king's pawn up two squares 
you would enter: 

"e2-e4" 

If SARGON responded with the same move, it would print: 

"eT-eS" 

To Castle 

Just enter the king's move. The rook will tag along. For example, if you are 
white and you wish to castle king's side, enter: 

"el-gl" 

You will see both your king and rook move. When SARGON castles, he lists it as 
0-0 or 0-0-0 as in normal chess notation. 

To Capture En Passant 

If you wish to capture one of SARGON's pawns using the en passant 
privilege, enter your pawn's move. After your pawn move is displayed, SAR- 
GON's pawn will blink and then vanish. When SARGON captures en passant, 
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his mrnf is displayed on the graphics board in the same way. SARGON prints it 
in the =ove list as PxPep. 

3. To plqr another game after checkmate: 

If eitheryou or SARGON is checkmated, and you wish to play again, just hit any 
key. The screen will blank out and SARGON will ask: 

"Care fcr Another Game?" 

Relies to this question are just like those to the original "Care for a Game?" 

4. To reft^n a hopeless game or take back a move: 

If you decide your position is hopeless, or you wish to change a move entered in 
error, zrst wait until it is your turn to move. Then, enter "eof rtro i R. " You will 
immeiiately get the "Care for Another Game?" question. If you want to start 
over, type "y," but if you want to correct the board display, type "n." You will 
then rrt the routine that allows you to set up a board position. 

5. To set up or correct a board position: 

If you typed K n" to a "Care for a Game" question, SARGON will now ask: 

"Would you like to analyze a position?" 

If you answer "n" to this one, you wfll be out of SARGON entirely and back 
in the computer's monitor state. An answer of "y" will display the board just 
as you left it. The lower left-hand comer will hlink. That's your signal that 
you can change the contents of that square, using one of the analysis 
commands. 



Summary of Analysis Commands 

<CR> -$> 

A carriage return leaves the contents of the square unchanged and blinks the 
next square. If you are already at the upper right-hand comer, it wraps around 
to the lower left-hand corner and blinks that square. 

Backspace 

A backspace leaves the contents of the square unchanged and blinks a square in 

the other direction. It's the opposite of a <£>R[>, so you can go either direction. 

fCteoc r- t^'f 

An er.try offr ogofthg space-bar, or any ke y mM i i vt ed m these commands will 
empty the square. 
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"Enter a Piece- 
To enter a piece, type in piece-code, color-code, moved-code. 

Piece-code is a letter indicating the desired piece (upper or lower case): 

K — King 
Q — Queen 
R — Rook 
B — Bishop 
N — Knight 
P — Pawn 

Color-code is a letter indicating the side the piece belongs to (also upper or lower 
case): 

w — white 
b — black 

Moved-code is a number indicating whether the piece has moved or not: 

— piece has never moved 

1 — piece has moved 

Some examples: 

To enter a black pawn on its original square type: 

"P, b, 0" 
A white knight in the middle of the board would be: 

"N.w.l" 
A black king on its original square which has, however, moved: 

"K, b, 1" 

Escape Q 

The «BP0fe-key will terminate the blinking cycle. SARGON will ask: 

"Is this right?" 

An answer of "n" will go back to setting up the board. If you say "y" then 
SARGON will ask for the information it needs to resume play from this point. 
The color choice and search depth questions are the same as in Section 1. In 
addition SARGON must be given the answer to: 
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"Whose move is it?" 

To terminate execution: 

The way out of the S ARGON program depends on whether you're at the end of a 
game, in the middle of a game, or setting up a board position. 

At the end of a game: 

1. Depress any key. 

2. SARGON responds with: "Care for Another Game?" 

3. Answer with "n." 

4. SARGON responds with: "Would you like to analyze a position?" 

5. Answer with "n" and you're out. 

In the middle of a game: 

1. Wait until it's your turn. 

2. Enter "••htroi-fiT i, 

3. SARGON responds with: "Care for Another Game?" 

4. Follow 3-5 as for the end of a game. 

Setting up a board: 

_ , BREAK , 

1. Depress the <MMB-key. 

2. SARGON answers: "Is this right?" 

3. Respond with "ywlw," answering four questions at once. 

4. Follow 2-4 as for the middle of a game. 
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Notes on the Implementation of SARGON 

1. SARGON was assembled using the TDL Macro Assembler, which does not 
use the ZILOG mnemonics. Conversion to ZILOG mnemonics can be per- 
formed on an instruction for instruction basis using the conversion chart 
included with this listing. 

2. I/O is based on the JOVE operation system which runs on the Wave-Mate 
Jupiter III computer. For ease in conversion all I/O has been isolated to the 
following areas: Accept Input Character (p. 82), I/O Macro Definitions (p. 
68), and 3et Up Empty Board (p. 89). 

3. SARGON must be loaded at a start address which is an even 256 byte page 
boundary (that is, at an address of the form XX00 hexadecimal). 

4. Graphics routines assume a 96 by 128 dot matrix with black characters on a 
white background. To convert to a display with white characters on a black 
background, only six lines of code need be changed: 



Location 


Is 




Change to 




DB04 


MVI 


M.80H 


MVI 


M,0BFH 


DB08 


MVI 


M.0BFH 


MVI 


M,80H 


2 lines above IP04 


JRZ 


IP04 


JRNZ 


IP04 


4 lines above IP 18 


JRNZ 


IP18 


JRZ 


IP18 


2 lines above IP 18 


JRNZ 


IP2C 


JRZ 


IP2C 


1 line below IP 18 


JRZ 


IP2C 


JRNZ 


IP2C 



5. SARGON requires a minimum of 8K bytes of memory available for user 
programs. 
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I 

; SARGON 

; 

; Sargon is a computer chess playing program designed 
; and coded by Dan and Kathe Spracklen. Copyright 1978. All 
; rights reserved. No part of tnis publication may be 
; reproduced without the prior written permission. 

; 

a*********************************************************** 



; EQUATES 




• 

PAWN 


x 


1 


KNIGHT 


= 


2 


BISHOP 


^ 


3 


ROOK 


■ 


4 


QUEEN 


= 


5 


KING 


= 


6 


WHITE 


= 





BLACK 


= 


80H 


BPAWN 


= 


BLACK+PAwN 



; TABLES SECTION 
;*******************************************#************»** 

START:. 

.LOC START+80H 
TBASE = START+103H 

•ft********************************************************** 

; DIRECT — Direction Table. Used to determine the dir- 
; ection of movement of each piece. 

.ft*************************************** ******************* 

DIRECT = .-TBASE 

.BYTE + 09, +11, -11, -09 

•BYTE +10, -10, +01, -91 

.BYTE -21, -12, +08, +19 

.BYTE +21, +12, -08, -19 

.BYTE +10, +10, +11, +09 

.BYTE -10,-10,-11,-09 
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I DPOINT — Direction Table Pointer. Used to determine 
; where to begin in the direction table for any 

; given piece. 



DPOINT 



.BYTE 



.-TBASE 

20,16,8,0,4,0,0 



; DCOUNT — Direction Table Counter. Used to determine 
; the number of directions of movement for any 



given piece. 



DCOUNT 



• BYTE 



.-TBASE 
4,4,8,4,4,8,8 



•ft********************************************************** 

; PVALUE — Point Value. Gives the point value of each 
t piece, or the worth of each piece. 

•**********************************:******«****************** 

PVALUE = .-TBASE-1 

.BYTE 1,3,3,5,9,10 
J*********************************************************** 

; PIECES — The initial arrangement of the first rank of 
; pieces on the board. Use to set up the board 

; for the start of the game. 

J*********************************************************** 

PIECES = .-TBASE 

.BYTE 4,2,3,5,6,3,2,4 
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; SCAHD — 



Board Area 
of the boa 
looks like 
FFFFFFFFFF 
FFFFFFFFFF 
FF04020305 
FF01010101 
FF00000200 
FP00030003 
FF0003000E 
FF00000B03 
FF81818181 
FF6482B385 
FFFFFFFFFF 
FFFFFFFFFF 
The values 
board, and 
moves off 
the other 
follows: 
Bit 7 — 



y. Used to hold the current position 
rd during play. The board itself 

FFFFFFFFFF 

FFFFFFFFFF 

06030204FF 

01310101FF 

00020000FF 

00000000FF 

0B32330CFF 

03030003FF 

B1818181FF 

B6838284FF 

FFFFFFFFFF 

FFFFFFFFFF 
of FF form the border of the 
are used to indicate when a piece 

the board. The individual bits of 

bytes in the board array are as 



Color of the piece 
1 — Black 

— White 
Bit 6 — Not used 
Bit 5 — Not used 

Bit 4 — Castle flag for Kings only 
Bit 3 — Piece has moved flag 
Bits 2-0 Piece type 

1 — Pawn 

2 — Knight 

3 -- Bishop 

4 — Rook 

5 — Queen 

6 — King 

7 — Not used 

-- Empty Square 



BOARD 
BOARDA: 






•-TBASE 
120 
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t ATKLIST — Attack List. A two pact array, the first 

; half for white and the second half for black. 

j It is used to hold the attackers of any given 

; square in the order of their value. 

i 

; WACT — White Attack Count. This is tlie first 

; byte of the array and tells how many pieces are 

; in the white portion of the attack list. 

; 

; BACH — Black Attack Count. This is the eighth byte of 

; the array and does the same for black, 
.♦a********************************************************* 

WACT ■ ATKLST 

BACT - ATKLST+7 

ATKLST: .WORD 0,0,0,0,0,0,0 



I PLIST — Pinned Piece Array. This is a two part array. 

; PLISTA contains the pinned piece position. 

; PLISTD contains the direction from the pinned 

; piece to the attacker, 

.ft********************************************************** 

PLIST = .-TBASE-1 

PLISTD « PLIST+10 

PLISTA: .WORD 0,0,0,0,0,0,0,0,0,0 



.*********•************«******»*******•*•*•*******»***■*«**»* 
; POSK — Position of Kings. A two byte area, the first 
; byte of which hold the position of the white 

; king and the second holding the position of 

; the black king. 

; 

; POSQ — Position of Queens. Like POSK, but for queens. 

.A*********************************************************** 

POSK: .BYTE 24,9 5 
POSQ: .BYTE 14,94 
.BYTE -1 
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£CQJ»E -- Score Array. Used during Alpha-Beta pruning to 
hold the scores at each ply- It includes two 
"dummy" entries for ply -1 and ply 0. 

.......•••a***********************)************************** 



WAiftl .WORD 0,0,0,0,0,0 
mt ,99999-9*9********* ************** ************************** 

pL<flX — Ply Table. Contains pairs of pointers, a pair 

for each ply. The first pointer points to the 

top of the list of possible moves at that ply. 

The second pointer points to which move in the 

list is the one currently being considered. 
,,»»««»••»#***#**********#****************■*************»*** 

A.tt)Li .WORD 0,0,0,0,0,0,0,0,0,0 
. WORD 0,0,0,0,0,0,0,0,0,0 

999499****************************************************** 

&V\CK -- Contains the stack for the program. 
t*********************************************************** 

•LOC START+2FFH 
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J TABLE INDICES SECTION 



; M1-M4 

; 

; 

. T1-T3 
t 

t 

t INDXl 

; INDX2 



NPINS 



MLPTRI 



SCRIX 



BESTM 



; MLLST 

; 
i 
', MLNXT 



Working indices used to index into 
the board array. 

— Working indices used to index into Direction 
Count, Direction Value, and Piece Value tables. 

— General working indices. Used for various 
purposes. 

Number of Pins. Count and pointer into the 
pinned piece list. 

Pointer into the ply table which tells 
which pair of pointers are in current use. 



MLPTRJ — Pointer into the move list to the move that is 
currently being processed. 



— Score Index. Pointer to the score table for 
the ply being examined. 

Pointer into the move list for the move that 
is currently considered the best by the 
Alpha-Beta pruning process. 

Pointer to the previous move placed in the move 
list. Used during generation of the move list. 

Pointer to the next available space in the move 
list. 



.A*********************************************************** 

.LOC START+0 

Ml: .WORD TBASE 

K2: .WORD TBASE 

M3: .WORD TBASE 

M4: .WORD TBASE 

Tl: .WORD TBASE 

T2: .WORD TBASE 

T3: .WORD TBASE 

INDX1: .WORD TBASE 

INDX2: .WORD TBASE 

NPINS: .WORD TBASE 

MLPTRI: .WORD PLYIX 

MLPTRJ: .WORD 

SCRIX: .WORD 

BESTM: .WORD 

MLLST: .WORD 

MLNXT: .WORD MLIST 
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VARIABLES SECTION 

KOLOR — Indicates computer's color. White is 0, and 
Black is 80H. 

COLOR — Indicates color of the side with the move. 

P1-P3 — Working area to hold the contents of the board 
array for a given square. 

PHATE — The move number at which a checkmate is 
discovered during look ahead. 

HOVENO — Current move number. 

PLYHAX - 



NPLY 

CKFLG 
KATEF 
VALH 
BROC 

PTSL 

FTSWl 

PTSW2 



Maximum depth of search using Alpha-Beta 
pruning. 

Current ply number during Alpha-Beta 
pruning. 

A non-zero value indicates the king is in check. 

A zero value indicates no legal moves. 

The score of the current move being examined. 

A measure of mobility equal to the total number 
of squares white can move to minus the number 
black can move to. 

The maximum number of points which could be lost 
through an exchange by the player not on the 
move. 

The maximum number of points which could be won 
through an exchange by the player not on the 
move. 

The second highest number of points which could 
be won through a different exchange by the player 
not on the move. 

A measure of the difference in material 

currently on the board. It is the total value of 

the white pieces minus the total value of the 
black pieces. 

— The value of board control (BRDC) at ply 0. 
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I 

t KV0 


— 


The value of material (MTRL) at ply 0. 


I 

; PTSCK 





A non-zero value indicates that the piece has 


1 




just moved itself into a losing exchange of 


* 




material. 


i 

; BMOVES — 


Our very tiny book of openings. Determines 


1 




the first move for the computer. 


t 


KOLOR : 


.BYTE 





COLOR: 


• BYTE 





PI: 


.BYTE 





P2: 


.BYTE 





P3: 


.BYTE 





PMATE : 


.BYTE 





MOVENO: 


.BYTE 





PLYMAX: 


.BYTE 


2 


NPLY: 


.BYTE 


a 


CKFLG: 


. BYTE 





MATEF: 


• BYTE 





VALH: 


.BYTE 





BRDC: 


• BYTE 





PTSL: 


.BYTE 





PTSW1 : 


• BYTE 





PTSK2 : 


.BYTE 





MTRL: 


.BYTE 





BCfl: 


.BYTE 





MV0: 


.BYTE 





PTSCK: 


. BYTE 





BMOVES : 


• BYTE 


35,55, 10H 




.BYTE 


34,54,10H 




.BYTE 


85,65,10H 




.BYTE 


84,64,10H 
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HOVE LIST SECTION 

XLIST — A 2048 byte storage area for generated moves. 
This area must be large enough to hold all 
the moves for a single leg of the move tree. 

HLEND — The address of the last available location 
in the move list. 

HLPTR — • "The Hove List is a linked list of individual 

moves each of which is 6 bytes in length. The 
move list pointer (MLPTR) is the link field 
within a move. 

MLPRP — The field in the move entry which gives the 

board position from which the piece is moving. 

MLTOP — The field in the move entry which gives the 
board position to which the piece is moving. 

KLFLG — A field in the move entry which contains flag 
information. The meaning of each bit is as 
follows: 
Bit 7 — The color of any captured piece 

— White 

1 — Black 

Bit 6 — Double move flag (set for castling and 

en passant pawn captures) 
Bit 5 — Pawn Promotion flag; set when pawn 

promotes. 
Bit 4 — When set, this flag indicates that 

this is the first move for the 

piece on the move. 
Bit 3 — This flag is set is there is a piece 

captured, and that piece has moved at 

least once. 
Bits 2-0 Describe the captured piece. A 

zero value indicates no capture. 

"LVAL -- The field in the move entry which contains the 
score assigned to the move. 

l****itt*t***********************«*****r*«***********K****t-*t 
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* 


LOC 


START+300H 


MLIST: 




BLKB 


2048 


MLEND 


* 




MLIST+2040 


MLPTR 


» 







MLFRP 


- 




2 


MLTOP 


V 




3 


MLFLG 


= 




4 


MLVAL 


= 
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; PROGRAM CODE SECTION 



; BOARD SETUP ROUTINE 

FUNCTION: To initialize the board array, setting the 
pieces in their initial positions for the 
start of the game. 

CALLED BY: DRIVER 

CALLS: None 

ARGUMENTS: None 

ft***************************************************** 1 ******* 

; Pre-fill board with -l*s 



INITBD* MVI 


B,120 


LXI 


H,BOARDA 


MVI 


M,-l 


INX 


H 


DJNZ 


.-3 


MVI 


B,8 


LXI 


X,BOARDA 


IB2: MOV 


A,-8(X) 


MOV 


21{X) ,A 


SET 


7, A 


MOV 


91(X) ,A 


MVI 


31 (X) , PAWN 


MVI 


81 (X) , BPAWN 


MVI 


41{X) ,0 


MVI 


51(X) ,0 


MVI 


61(X) ,0 


MVI 


71(X),0 


INX 


X 


DJNE 


IB2 


LXI 


X,POSK 


MVI 


0(X),25 


MVI 


1(X),95 


MVI 


2(X),24 


MVI 


3(X},94 


RET 





Fill non-border squares 

White pieces 

Change to black 

Black pieces 

White Pawns 

Black Pawns 

Empty squares 



Init K.ing/Oueen position lie 
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; PATH ROUTINE 



; FUNCTION: 


To generate 


t 




piece along 


J 






; 




Fetching 


; 




position 


; 




contents 


'. 






• 






f 






; 






; 






i 






; 






; 






• 






i 






; CALLED BY: 


MPIECE 


; 




ATTACK 


; 




PINFND 


; CALLS 


• 


None 


; ARGUMENTS: 


Direction f 


* 




constant to 


1 


PATH: 


LXI 


H,M2 




MOV 


A,M 




ADD 


C 




MOV 


M,A 




LIXD 


M2 




MOV 


A, BOARD (X 




CPI 


-1 




JRZ 


PA 2 




STA 


P2 




ANI 


7 




STA 


T2 




RZ 






LDA 


P2 




LXI 


H,P1 




XRA 


M 




BIT 


7,* 




JRZ 


PAl 




MVI 


A,l 




RET 




PAl: 


MVI 
RET 


A, 2 


PA2: 


MVI 
RET 


A, 3 



a single possible move for a given 
its current path of motion including 

the contents of the board at the new 
, and setting a flag describing the 

— New postion is empty 

1 — Encountered a piece of the 

opposite color 

2 — Encountered a piece of the 

same color 

3 — New position is off the 

board 



ton the direction array giving the 
be added for the new position. 

************************************ 

Get previous position 

Add diection constant 

Save new position 

Load board index 

Get contents of board 

In boarder area ? 

Yes - jump 

Save piece 

Clear flags 

Save piece type 

Return if empty 

Get piece encountered 

Get moving piece address 

Compare 

Do colors match ? 

Yes - jump 

Set different color flag 

Re t u r n 

Set same color flag 

Return 

Set off board flag 

Return 
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PIECE MOVER .ROUTINE 



FUNCTION: To generate all the possible legal moves for a 
given piece. 

CALLED BY: GENMOV 



CALLS: 



PATH. 
ADHOVE 
CASTLE 
ENPSNT 



ARGUMENTS: The piece to be moved. 



MPIECE: XRA M 

ANI 87H 

CPI BPAWN 

JRNZ .+3 

DCR A 

ANI 7 

STA Tl 

LIYD Tl 

MOV B,DCOUNT(Y) 

MOV A,DPOINT(Y) 

STA INDX2 

LIYD INDX2 

MPS: MOV C, DIRECT (Y) 

LDA Ml 

STA M2 

MP10: CALL PATH 

CPI 2 

JRNC MP15 

ANA A 

EXAF 

LDA Tl 

CPI PAWN+1 

JRC MP20 

CALL ADHOVE 

EXAF 

JRNZ MP15 

LDA Tl 

CPI KING 

JRZ MP15 

CPI BISHOP 

JRNC MPlfl 

MP15: INX Y 

DJNZ HP5 

LDA Tl 



Piece to move 

Clear flag bit 

Is is a black Pawn ? 

No-Skip 

Decrement for black Pawns 

Get piece type 

Save piece type 

Load index to DCOUNT/DPOINT 

Get direction count 

Get direction pointer 

Save as index to direct 

Load index 

Get move direction 

From position 

Initialize to position 

Calculate next position 
j Ready for new direction ? 
j Yes - Jump 

Test for empty square 

Save result 

Get piece moved 

Is it a Pawn ? 

Yes - Jump 

Add move to list 

Empty square ? 

No - Jump 

Piece type 

Ring ? 

Yes - Jump 

Bishop, Rook, or Queen ? 

Yes - Jump 

Increment direction index 

Deer, count-jump if non*-zero 

Piece type 
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CPI 


KING 




CZ 


CASTLE 




RET 




. ***** 


PAWN 


LOGIC ***** 


HP20: 


MOV 


A,B 




CPI 


3 




JRC 


MP35 




JRZ 


MP30 




EXAF 






JRNZ 


MP15 




LDA 


M2 




CPI 


91 




JRNC 


MP25 




CPI 


29 




JRNC 


MP26 


HP25: 


LXI 


H,P2 




SET 


5,M 


HP26: 


CALL 


ADMOVE 




INX 


Y 




DCR 


B 




LXI 


H,Pl 




BIT 


3,M 




JRZ 


MP10 




JHP 


MP15 


KP30: 


EXAF 






JRNZ 


MP15 


HP31: 


CALL 


ADMOVE 




JMP 


MP15 


MP35: 


EXAF 






JRZ 


MP36 




LDA 


M2 




CPI 


91 




JRNC 


MP37 




CPI 


29 




JRNC 


MP31 


HP37: 


LXI 


H,P2 




SET 


5,M 




JMPR 


MP31 


MP36: 


CALL 


ENPSNT 




JMP 


MP15 



; King ? 

; Yes - Try Castling 

j Return 

; Counter for direction 

; On diagonal moves ? 

; Yes - Jump 

I -or-jump if on 2 square move 

; Is forward square empty? 

; No - jump 

j Get "to" position 

t Promote white Pawn 7 

; Yes - Jump 

; Promote black Pawn ? 

; No - Jump 

; Flag address 

; Set promote flag 

; Add to eove list 

; Adjust to two square move 



Check Pawn moved flag 

Has it moved before ? 

No - Jump 

Jump 

Is forward square empty ? 

No - Jump 

Add to move list 

Jump 

Is diagonal square empty ? 

Yes - Jump 

Get "to" position 

Promote white Pawn ? 

Yes - Jump 

Black Pawn promotion ? 

No- Jump 

Get flag address 

Set promote flag 

Jump 

Try en passant capture 

Jump 



31 



,•**>«••••••••*•••••< 

; EN PASSANT ROUTINE 



I FUNCTION: 
I 

; 
; 

; CALLED BY: 

t 

t CALLS: 



To test for en passant Pawn capture and 
to add it to the move list if it is 
legal. 

MPIECE 

ADHOVE 



; 
; 

; ARGUMENTS: 
.************* 

ENPSNT: LDA 
LXI 
BIT 
JRZ 
AD I 
CPI 
RC 
CPI 
RNC 
LIXD 
BIT 
RZ 
HOV 
STA 
LIXD 
HOV 
STA 
AN.I 
CPI 
RNZ 
LDA 
LXI 
SUB 
JP 
NEG 
CPI 
RNZ 
LXI 
SET 
CALL 
LDA 
STA 
LDA 



ADJPTR 

— None 

************ 

Ml 

H,P1 

7.M 

. + 4 

10 

61 

69 

MLPTRJ 
4,MLFLG(X) 

A f MLTOP(X) 

M4 

M4 

A, BOARD (X) 

P3 

7 

PANN 

M4 

H,M2 
M 
. + 5 

10 

H,P2 
6,M 

ADHOVE 

Ml 

M3 

M4 



******** *** * 

Set 

Chec 
Is i 
Yes 

Add 
; On e 
; No - 
On e 
No - 
Get 
Firs 
No - 
Get 
Stor 
Load 
Get 
Save 
Get 
Is i 
Ko - 
Get 
Get 
Find 
Posi 
Else 
Is d 
No - 
Addr 
Set 
Add 
Save 



*********************** 

position of Pawn 

k color 

t white ? 

- skip 

10 for black 

n passant capture rank ? 

return 
n passant capture rank ? 

return 
pointer to previous move 
t move for that piece ? 

return 
"to" postition 
e as index to board 

board index 
piece isoved 

it 
piece type 
t a Pawn ? 

return 
"to" position 
present "to" position 

difference 
tive ? Yes - Jump 

take absolute value 
ifference 10 ? 

return 
ess of flags 
double move flag 
Pawn move to move list 

initial Pawn position 



Set "frora" and 
for dummy move 



'to" positior 
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STA 


HI 


STA 


M2 


LDA 


P3 


STA 


P2 


CALL 


ADMOVE 


LDA 


H3 


STA 


HI 



I Save captured Pawn 

1 Add Pawn capture to move list 
j Restore "from" position 



.a*********************************************************** 

: ADJUST MOVE LIST POINTER FOR DOUBLE MOVE 
*********************** A************************************ 

FUNCTION: — To adjust move list pointer to link around 
second move in double move. 

CALLED BY: — ENPSNT 
CASTLE 

(This mini-routine is not really called, 
but is jumped to to save time.) 



CALLS: 



— None 



j ARGUMENTS: — None 

I **************************************************** ********* 

; Get list pointer 

; Size of a move entry 

; Back up list pointer 

i Save list pointer 

; Zero out link, first byte 

; Next byte 

j Zero out link, second byte 

; Return 



ADJPTR: LHLD 


MLLST 


LXI 


D,-6 


DAD 


D 


SHLD 


MLLST 


MVI 


M,0 


INX 


H 


MVI 


M,0 


RET 
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CASTLE ROUTINE 
FUNCTION: 



To determine whether castling is legal 
(Queen side. King side, or both) and add it 
to the move list if it is. 



CALLED BY: — MPIECE 



CALLS: 



ARGUMENTS: 

************ 

CASTLE: 



— ATTACK 
ADHOVE 
ADJPTR 

— None 
************** 



CA5: 



CA10: 



CA15: 



LDA 


PI 


BIT 


3, A 


RNZ 




LDA 


CKFLG 


ANA 


A 


RNZ 




LXI 


B,0FF03H 


LDA 


Ml 


ADD 


C 


MOV 


C,A 


STA 


M3 


LIXD 


M3 


MOV 


A , BOARD (X) 


AN I 


7FH 


CPI 


ROOK 


JRNZ 


CA20 


MOV 


A,C 


JMPR 


CA15 


LIXD 


M3 


MOV 


A,BOARD(X) 


ANA 


A 


JRNZ 


CA20 


LDA 


M3 


CPI 


22 


JRZ 


CA15 


CPI 


92 


JRZ 


CA15 


CALL 


ATTACK 


ANA 


A 


JRNZ 


CA20 


LDA 


M3 


ADD 


B 


STA 


M3 


LXI 


H,Ml 


CMP 


M 



values 



********************************** 

Get King 

Has it mowed ? 

Yes - return 

Fetch Check Flag 

Is the King in check ? 

Yes - Return 

Initialize King-side 

King position 

Rook position 

Save 

Store as board index 

Load board index 

Get contents of boaifd 

Clear color bit 

Has Rook ever moved ? 

Yes - Jump 

Restore Rook position 

Jump 

Load board index 

Get contents of board 

Empty ? 

No - Jump 

Current position 

White Queen Knight 

Yes - Jump 

Black Queen Knight 

Yes - Jump 

Look for attack on 

Any attackers ? 

Yes - Jump 

Current position 

Next position 

Save as board index 

King position 

Reached King ? 



square / 
square ? 
square 
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CA2B: 



JRNZ 


CA10 


SUB 


B 


SUB 


B 


STA 


M2 


LXI 


H,P2 


MVI 


M,40H 


CALL 


ADMOVE 


LXI 


H,M1 


MOV 


A,M 


MOV 


M,C 


SUB 


B 


STA 


M2 


XRA 


A 


STA 


P2 


CALL 


ADMOVE 


CALL 


ADJPTR 


LDA 


M3 


STA 


Ml 


MOV 


A,B 


CPI 


1 


RZ 




LXI 


B,01FCH 


JMP 


CAS 



j No - jump 

; Determine King's position 



Save it 

Address of flags 

Set double move flag 

Put kinn move in list 

Addr of King "from" position 

Get King's "from" position 

Store Rook "from" position 

Get Rook "to" position 

Store Rook "to" position 

Zero 

Zero move flags 

Put Rook move in list 

Re-adjust move list pointer 

Restore King position 

Store 

Scan Index 

Done ? 

Yes - return 

Set Queen-side initial values 

Jump 
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ADMOVE ROUTINE 



FUNCTION: 
CALLED BY: 

CALLS: 
ARGUMENT: 



— To add a move to the move list 

— MPIECE 
ENPSNT 
CASTLE 

— None 
— None 



ADMOVE: LDED 
LXI 
ANA 

DSBC 
JRC 
LHLD 
SDED 
MOV 
INX 
MOV 
LXI 
BIT 
JRNZ 
LXI 
SET 
XCHG 
rfVI 
4 NX 
MVI 
INX 
LDA 
MOV 
INX 
LDA 
MOV 
INX 
LDA 
MOV 
INX 
MVI 
INX 
SHLD 
RET 
AM10: MVI 
INX 
MVI 
DCX 
RET 



MLNXT 

H,MLEND 

A 

D 

AM10 

MLLST 

MLLST 

M,E 

H 

M,D 

H,P1 

3,M 

.+7 

H,P2 

4,M 

M,B 

H 

M,0 

H 

Ml 

M,A 

H 

M2 

M,A 

H 

P2 

M, A 

H 

M f 

H 

MLNXT 

M,0 
H 

M,0 
H 



; Addr of next loc in move li; 

; Address of list end 

t Clear carry flag 

j Calculate difference 

; Jump if out of space 

; Addr of prev. list area 

l Savn next as previous 

; Store link address 



; Address of moved piece 

; Has it moved before ? 

; Yes - jump 

j Address of move flags 

; Set first move flag 

; Address of move area 

; Store zero in link address 



; Store ■from - move position 



; Store "to" move position 



; Store move flags/capt. pice: 



j Store initial move value 

; Save address for next move 

; Return 

; Abort entry on table ovflc 
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GENERATE MOVE ROUTINE 



FUNCTION: 

CALLED BY: 
CALLS: 

ARGUMENTS : 



To generate the move set Cor all of the 
pieces of a given color. 



— FNDMOV 

— MIECE 
INCHK 

— None 



GENMOV: CALL 


INCHK 


5TA 


CKFLG 


LDED 


MLNXT 


LHLD 


MLPTRI 


I NX 


H 


INX 


H 


MOV 


M,E 


INX 


H 


MOV 


M,D 


INX 


H 


SHLD 


MLPTRI 


SHLD 


MLLST 


MVI 


A, 21 


GM5: STA 


Ml 


LIXD 


Ml 


MOV 


A* BOARD (X) 


ANA 


A 


JRZ 


GM10 


CPI 


-1 


JRZ 


GM10 


STA 


PI 


LXI 


H, COLOR 


XRA 


M 


BIT 


7, A 


CZ 


MPIECE 


GM10: LDA 


Ml 


INR 


A 


CPI 


99 


JNZ 


GM5 


RET 





; Test Cor King in check 

; Save attack count as flag 

; Addr of next avail list space 

; Ply list pointer index 

; Increment to next ply 

; Save move list pointer 



Save new index 

Last pointer for chain init. 
First position on board 
Save as index 
Load board index 
Fetch board contents 
Is it empty ? 
Yes - Jump 

Is it a boarder square ? 
Yes - Jump 
Save piece 

Address of color of piece 
of piece 



Test color 

Match ? 

Yes - call Move Piece 

Fetch current board position 

Incr to next board position 

End of board array ? 

No - Jump 

Return 
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J CHECK 


ROUTINE 












j FUNCTION: 


_ 


To determine 


whether or. not the 








King is 


in 


check. 


* CALLED BY: 


m 


- GENMOV 
















FNDMOV 
















EVAL 










; CALLS 


: 


- 


- ATTACK 










j ARGUMENTS: 


- 


- Color of 


Ki 


ng 






INCHK: 


LDA 




COLOR 






; 


Get color 


INCHK1: 


LXI 

ANA 

JRZ 

I NX 

MOV 

STA 

LIXD 

MOV 

STA 

AN I 

STA 

CALL 

RET 




H,POSK 

A 

. + 3 

H 

A,M 

M3 

M3 

A, BOARD (X) 

PI 

7 

Tl 

ATTACK 






; 


Addr of white King positicr. 

White ? 

Yes - Skip 

Addr of black King position 

Fetch King position 

Save 

Load board index 

Fetch board contents 

Save 

Get piece type 

Save 

Look for attackers on King 

Return 
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ATTACK ROUTINE 



FUNCTION: — To find all attackers on a given square 
by scanning outward from the square 
until a piece is found that attacks 
that square, or a piece is found that 
doesn't attack that square, or the edge 
of the board is reached. 

In determining which pieces attack 
a square, this routine also takes into 
account the ability of certain pieces to 
attack through another attacking piece. (For 
example a queen lined up behind a bishop 
of her same color along a diagonal.) The 
bishop is then said to be transparent to the 
queen, since both participate in the 
attack. 

In the case where this routine is called 
by CASTLE or INCHK, the routine is 
terminated as soon as an attacker of the 
opposite color is encountered. 



CALLED BY: — 



CALLS: 



POINTS 
PINFND 
CASTLE 
INCHK 



— PATH 

ATKSAV 



; ARGUMENTS: — None 

Save Register B 

Clear 

Initial direction count 

Initial direction index 

Load index 

Get direction 

Init. scan count/flags 

Init. board start position 

Save 

Increment scan count 

Ne x t po s i t i o n 

Piece of a opposite color ? 

Yes - jump 

Piece of ca.ne color ? 

Yes - jump 



ATTACK: 


PUSH 


B 




XRA 


A 




HVI 


B,16 




STA 


INDX2 




LIYD 


INDX2 


AT5: 


MOV 


C,DIRECT(Y) 




MVI 


D,0 




LDA 


M3 




STA 


K2 


AT10: 


INR 


D 




CALL 


PATH 




CPI 


1 




JRZ 


AT14A 




CPI 


2 




JRZ 


AT14B 



SO 





ANA 


A 




JKNZ 


ATI 2 




MOV 


A,B 




CPI 


9 




JRNC 


AT10 


ATI 2: 


INX 


Y 




DJNZ 


AT 5 




XRA 


A 


AT13: 


POP 
RET 


B 


AT14A: 


BIT 


6,D 




JRNZ 


AT12 




SET 


5,D 




JHP 


AT14 


AT14B: 


BIT 


5,D 




JRNZ 


AT12 




SET 


6,D 


1 

. ***** 


DETERMINE IF PIECE 


AT14: 


LDA 


T2 




MOV 


E,A 




MOV 


A,B 




CPI 


9 




JRC 


AT25 




MOV 


A,E 




CPI 


QUEEN 




JRNZ 


ATI 5 




SET 


7.D 




JMPR 


AT30 


ATI 5: 


MOV 


A,D 




ANI 


0FH 




CPI 


1 




JRNZ 


AT16 




MOV 


A,E 




CPI 


KING 




JRZ 


AT30 


AT16: 


MOV 


A,B 




CPI 


13 




JRC 


AT21 




MOV 


A,E 




CPI 


BISHOP 




JRZ 


AT30 




MOV 


A,D 




ANI 


0FH 




CPI 


1 




JRNZ 


ATI 2 




CMP 


E 




JRNZ 


ATI 2 




LDA 


P2 



; Empty position 7 
No - jump 

Fetch direction count 
On knight scan ? 
No - jump 

Increment direction index 
Done ? No - jump 
No attackers 
Restore register B 
Return 

Same color found already ? 
Yes - jump 

Set opposite color found flta 
Jump 

Opposite color found already: 
Yes - jump 
Set same color found flag 



ENCOUNTERED ATTACKS SQUARE ***** 

Fetch piece type encountered 

Save 

Get direction counter 

Look for Knights ? 

Yes - jump 

Get piece type 

Is is a Queen ? 

No - Jump 

Set Queen found flag 

Jump 

Get flag/scan count 

Isolate count 

On first position ? 

No - jump 

Get encountered piece type 

Is it a King ? 

Yes - jump 

Get direction counter 

Scanning files or ranks ? 

Yes - jump 

Get piece type 

Is it a Bishop ? 

Yes - jump 

Get flags/scan count 

Isolate count 

On first position ? 

No - jump 

Is it a Pawn ? 

No - jump 

Fetch piece including colef 



40 





BIT 


7, A 




JRZ 


AT20 




MOV 


A,B 




CPI 


15 




JRC 


ATI 2 




JMPR 


AT30 


%r;*: 


MOV 


A,B 




CPI 


15 




JRNC 


AT12 




JMPR 


AT3 


Itiil 


MOV 


A,E 




CPI 


ROOK 




JRNZ 


AT12 




JMPR 


AT30 


1T25: 


MOV 


A,E 




CPI 


KNIGHT 




JRNZ 


AT12 


AT30: 


LDA 


Tl 




CPI 


7 




JRZ 


AT31 




BIT 


5,D 




JRZ 


AT32 




MVI 


A,l 




JMP 


AT13 


AT31: 


CALL 


ATK5AV 


AT32: 


LDA 


T2 




CPI 


KING 




JZ 


AT12 




CPI 


KNIGHT 




JZ 


AT12 




JMP 


AT10 



1 Is it white ? 


j Yes - jump 


; Get direction counter 


; On a non-attacking diagonal ? 


t Yes - jump 


; Jump 


; Get direction counter 


; On a non-attacking diagonal ? 


j Yes - jump 


; Jump 


; Get piece type 


; Is is a Rook ? 


; No - jump 


; Jump 


j Get piece type 


; Is it a Knight ? 


; No - jump 


I Attacked piece type/flag 


; Call from POINTS ? 


; Yes - jump 


; Is attacker opposite color ? 


; No - jump 


; Set attacker found flag 


; Jump 


; Save attacker in attack list 


; Attacking piece type 


; Is it a King ? 


; Yes - jump 


; Is it a Knight ? 


; Yes - jump 


; Jump 
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; . ....... ...... ...... 

J ATTACK SAVE ROUTINE 
************* 



t**********************************************************, 

FUNCTION: — To save an attacking piece value in the 
attack list, and to increment the attack 
count for that color piece. 

The pin piece list is checked for the 
attacking piece, and if found there, the 
piece is not included in the attack list. 

CALLED BY: — ATTACK 

CALLS : — PNCK 



; ARGUMENTS: 
.************* 



ATKSAV: 



AS19: 



AS20: 



PUSH 

PUSH 

LDA 

ANA 

CNZ 

LIXD 

LXI 

LXI 

LDA 

BIT 

JRZ 

HVI 

AN I 

ftOV 

BIT 

JRZ 

MVI 

DAD 

INR 

MVI 

DAD 

MOV 

AN I 

JRZ 

MOV 

AN I 

JRZ 

INX 

JMPR 

RLD 

MOV 

RRD 

JMPR 

MOV 

RLD 



— None 

************* 

B 

D 

NPINS 

A 

PNCK 

T2 

H.ATKLST 

B,0 

P2 

7, A 

.+4 

C,7 

7 

E,A 

7,D 

.+4 

E, QUEEN 

B 

M 

D,0 

D 

A,M 

0FH 

AS20 

A,M 

0F0H 

AS19 

H 

AS20 

A,PVALUE(X) 

AS25 
A.PVALUE(X) 



********************************* 

Save Regs BC 

Save Regs DE 

Number of pinned pieces 

Any ? 

Yes - check pin list 

Init index to value table 

Init address of attack list 

Init increment for white 

Attacking piece 

Is it white ? 

Yes - jump 

Init increment for black 

Attacking piece type 

Init increment for type 

Queen found tbis scan ? 

No - jump 

Use Queen slot in attack lijl 

Attack list address 

Increment list count 



Attack list slot address 

Get data already there 

Is first slot empty ? 

Yes - jump 

Get data again 

Is second slot empty ? 

Yes - jump 

Increment to Sing slot 

Jump 

Temp save lower in upper 

Get new value for attack lp' 

Put in 2nd attack list slo* 

Jump ^ 

Get new value for attack Iw l 

Put in 1st attack list sl*C 
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t*2S: 



POP 
POP 
RET 



D 
B 



; Restore OE regs 
; Restore BC regs 
f Return 



pIN CHECK ROUTINE 



FUNCTION: — Checks to see if the attacker is in the 

pinned piece list. If so he is not a valid 
attacker unless the direction in which he 
attacks in the same as the direction along 
which he is pinned. If the piece is 
found to be invalid as an attacker, the 
return to the calling routine is aborted 
and this routine returns directly to ATTACK, 



CALLED BY: — ATKSAV 



CALLS: 
ARGUMENTS: 



••tt******* 



None 



— The direction of the attack. 

The pinned piece counnt. 

•A************************************* 



*»«»*«****» 



«CK: 



Kli 



-J: 



MOV 

MVI 

MOV 

MVI 

LDA 

LXI 

CCIR 

RNZ 

EXAF 

BIT 

JRNZ 

SET 

PUSH 

POP 

MOV 

CMP 

JRZ 

NEG 

CMP 

JRN2 

EXAF 

JPE 

RET 

POP 

POP 

POP 

RET 



D,C 

E,0 

C,A 

B,0 

M2 

H,PLISTA 



0,E 

PCS 

0,E 

H 

X 

A,9(X) 

D 

PC3 

D 
PC 5 

PCI 

PSW 

D 

B 



; Save attack direction 

; Clear flag 

; Load pin count for search 



Position of piece 

Pin list address 

Search list tor position 

Return if not found 

Save search par2ir.enters 

Is this the first find ? 

No - jump 

Set first find flag 

Get corresp index to dir 



list 



Get direction 

Same as attacking direction 

Yes - jump 

Opposite direction ? 

Same as attacking direction 

No - jump 

Restore search parameters 

Jump if search not complete 

Return 

Abnormal exit 

Restore regs. 

Return to ATTACK 
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PIN FIND ROUTINE 



; FUNCTION: 


To produce a 


; 


against the K 


; 


and black. 


j 

; CALLED BY: 


— FNDMOV 


* 


EVAL 


I CALLS: 


— PATH 


; 


ATTACK 


j ARGUMENTS: 


None 




PINFND: XRA 


A 


STA 


NPINS 


LXI 


D,POSK 


PF1: LDAX 


D 


ANA 


A 


JZ 


PF26 


CPI 


-1 


RZ 




STA 


M3 


LIXD 


M3 


MOV 


A,BOARD(X) 


STA 


PI 


MVI 


B,8 


XRA 


A 


STA 


INDX2 


LI YD 


INDX2 


PF2: LDA 


M3 


STA 


M2 


XRA 


A 


STA 


M4 


MOV 


C,DIRECT(Y) 


PF5: CALL 


PATH 


ANA 


A 


JRZ 


PF5 


CPI 


3 


JZ 


PF25 


CPI 


2 


LDA 


M4 


JRZ 


PF15 


ANA 


A 


JZ 


PF25 


LDA 


T2 


CPI 


QUEEN 


JZ 


PF19 


MOV 


L,A 



• a*************************!,, 

; Zero pin count 

Addr of King/Queen pos li*T 

Get position of royal pier* 

Is it on board ? 

No - jump 

At end of list ? 

Yes return 

Save position as board in: 

Load index to board 

Get contents of board 

Save 

Init scan, direction count 

Init direction index 

Get King/Queen position 
Save 

Clear pinned piece saved ~ 

Get direction of scan 

Compute next position 

Is it empty ? 

Yes - jump 

Off board 1 

Yes - jump 

Piece of same color fou"* 

Load pinned piece position 

Yes - jump 

Possible pin ? 

NO - jump 

Piece type encountered 

Queen ? 

Yes - jump 

Save piece type 
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■fill 



/f 15: 



*F19: 



"2^: 



MOV 


A,B 


CPI 


5 


JRC 


PF10 


MOV 


A,L 


CPI 


BISHOP 


JNZ 


PF25 


JMP 


PF20 


MOV 


A,L 


CPI 


ROOK 


JNZ 


PF25 


JMP 


PF20 


ANA 


A 


JNZ 


PF25 


LDA 


M2 


STA 


M4 


JMP 


PF5 


LDA 


PI 


AN I 


7 


CPI 


QUEEN 


JRNZ 


PF20 


PUSH 


B 


PUSH 


D 


PUSH 


Y 


XRA 


A 


MVI 


B,14 


LXI 


H,ATKLST 


MOV 


M,A 


INX 


H 


DJNZ 


.-2 


MVI 


A, 7 


STA 


Tl 


CALL 


ATTACK 


LXI 


H,WACT 


LXI 


D,BACT 


LDA 


PI 


BIT 


7, A 


JRZ 


.+3 


XCHG 




MOV 


A # M 


XCHG 




SUB 


M 


DCR 


A 


POP 


Y 


POP 


D 


POP 


B 


JP 


PF25 


LXI 


H,NPINS 


INR 


M 


LIXD 


NPINS 


MOV 


PLISTD(X) ,C 



Direction counter 

Non-diagonal direction 7 

Yes - jump 

Piece type 

Bishop ? 

No - jump 

Jump 

Piece type 

Rook ? 

No - j ump 

Jump 

Possible pin ? 

No - jump 

Save possible pin position 

Jump 

Load King or Queen 

Clear flags 

Queen ? 

No - j ump 

Save regs. 



Zero out attack list 



Set attack flag 

Find attackers/defenders 
White queen attackers 
Black queen attackers 
Get queen 
Is she white ? 
Yes - skip 
Reverse for black 
Number of defenders 
Reverse for attackers 
Defenders minus attackers 
Less 1 
Restore regs. 



Jump if pin not valid 

Address of pinned piece count 

Increment 

Load pin list index 

Save direction of pin 
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LDA 


M4 




MOV 


PLIST(X) ,A 


PF25: 


ZNX 


Y 




DJNZ 


PF27 


PF26: 


INX 


D 




JMP 


PFl 


PF27: 


JMP 


PF2 



j Position of pinned piece 

; Save in list 

j Increment direction ind? F 

; Done ? No - Jump 

j Incr King/Queen pos ir.dej 

; Jump 

; Jump 
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># g###*** ************ ******************************* ****** 

"exchange routine 



FUNCTION: -- To determine the exchange value of a 

piece on a given square by examining all 
attackers and defenders of that piece. 

CALLED BY: — POINTS 

CALLS: — NEXTAD 



ARGUMENTS : 

u'riSG: EXX 

LDA 

LXI 

LXI 

BIT 

JRZ 

XCHG 

MOV 

XCHG 

MOV 

XCHG 

EXX 

MVI 

MVI 

LIXD 

MOV 

SLAR 

MOV 

CALL 

RZ 

MOV 

CALL 

JRZ 

EXAF 

MOV 

CMP 

JRNC 

EXAF 

CMP 

RC 

CALL 

RZ 

MOV 

CALL 

JRNZ 

EXAF 

MOV 



None. 
*********************************************** 



Kit: 



*: 1 5 ; 



'■'III 



PI 

H , WACT 

D,BACT 

7, A 

.+3 

B,M 

C,M 



C,0 

E,0 

T3 

D,PVALUE(X) 

D 

B,D 

NEXTAD 

L,A 

NEXTAD 
XC18 

A,B 

L 

XC19 

L 

NEXTAD 

L,A 

NEXTAD 

XC15 



A,B 



; Swap regs. 

i Piece attacked 

; Addr of white attkrs/df ndrs 

; Addr of black attkrs/df ndrs 

; Is piece white ? 

; Yes - jump 

; Swap list pointers 

; Init list counts 



Restore regs. 

Init attacker/defender flag 

Init points lost count 

Load piece value index 

Get attacked piece value 

Double it 

Save 

Retrieve first, attacker 

Return if none 

Save attacker value 

Get next defender 

Jump if none 
; Save defender value 
; Get attacked value 

Attacked less than attacker ? 

No - jump 

Restore defender 

Defender less than attacker ? 

Yes - return 

Retrieve next attacker value 

Return if none 

Save attacker value 

Retrieve next defender value 

Jump if none 

Save Defender 

Get value of attacked piece 
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XC19: 



BIT 


0,C 


JRZ 


.+4 


NEG 




ADD 


E 


MOV 


E,A 


EXAF 




RZ 




MOV 


B,L 


JMP 


XC10 



j Attacker or defender ? 

; Jump if defender 

; Negate value for attacker 

t Total points lost 

; Save total 

; Restore previous defender 

; Return if none 

j Prev attckr becomes defend^ 

; Jump 



,***********************************************************i 

j NEXT ATTACKER/DEFENDER ROUTINE 
******************************************* ***************»i 



FUNCTION: 



To retrieve the next attacker or defender 
piece value from the attack list, and dele- 
that piece from the list. 



CALLED BY: — XCHNG 



CALLS : 



— None 



ARGUMENTS: — Attack list addresses. 
Side flag 
Attack list counts 

:******************■************************ 



*************** 



NEXTAD: 


INR 
EXX 


C 




MOV 


A,B 




MOV 


B,C 




MOV 


C r A 




XCHG 






XRA 


A 




CMP 


B 




JRZ 


NX6 




DCR 


B 




I NX 


H 




CMP 


M 




JRZ 


.-2 




RRD 






ADD 


A 




DCX 


H 


NX6: 


EXX 
RET 





; Increment side flag 
; Swap registers 
% Swap list counts 



Swap list pointers 

At end of list ? 

Yes - jump 

Decrement list count 

Increment list pointer 

Check next item in list 

Jump if empty 

Get value from list 

Double it 

Decrement list pointer 

Restore regs. 

Return 
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POINT EVALUATION ROUTINE 



FUNCTION : 



To perform a static board evaluation and 
derive a score for a given board position 



, CALLED BY: 


— FNDMOV 




EVAL 


, CALLS: 


— ATTACK 




XCHNG 




LIMIT 


J ARGUMENTS: 


None 


, •■*• ************** ******** 


KINTS: XRA 


A 


STA 


MTRL 


STA 


BRDC 


STA 


PTSL 


STA 


PTSW1 


STA 


PTSW2 


STA 


PTSCK 


LXI 


H,T1 


MVI 


M,7 


MVI 


A, 21 


MS: STA 


M3 


LIXD 


M3 


MOV 


A,BOARD(X) 


CPI 


-1 


JZ 


PT25 


LXI 


H,Pl 


MOV 


M,A 


AN I 


7 


STA 


T3 


CPI 


KNIGHT 


JRC 


PT6X 


CPI 


ROOK 


JRC 


PT6B 


CPI 


KING 


JRZ 


PT6AA 


LDA 


MOVENO 


CPI 


7 


JRC 


PT6A 


JNP 


PT6X 


***A: b it 


4,M 


JR2 


PT6A 


MVI 


A, +6 


BIT 


7,H 


JRZ 


PT6D 


MVI 


A,-6 



************************************ 
; Zero out variables 



j Set attacker flag 

; Init to first square on board 

I Save as board index 

; Load board index 

; Get piece from board 

; Off board edge ? 

; Yes - jump 

Save piece, if any 

Save piece type, if any 

Less than a Knight (Pawn] ? 
Yes - Jump 

Rook, Queen or King ? 
No - jump 
Is it a King ? 
Yes - jump 
Get move number 
Less than 7 ? 
Yes - Jump 
Jump 

Castled yet ? 
No - jump 

Bonus for castling 
Check piece color 
Jump if white 
; Bonus for black castling 
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JMP 


PT6D I 


PT6A: 


BIT 


3,M ; 




JRZ 


PT6X ; 




JMP 


PT6C ; 


PT6B: 


BIT 


3.M ; 




JRNZ 


PT6X j 


PT6C: 


MVI 


A, -2 ; 




BIT 


7,M ; 




JRZ 


•+4 f 




MVI 


A, +2 j 


PT6D: 


LXI 


H , BRDC ; 




ADD 


M s 




MOV 


M,A ; 


PT6X: 


XRA 


A ; 




MVI 


B,14 




LXI 


H,ATKLST 




MOV 


M,A 




INX 


a 




DJNZ 


.-2 




CALL 


ATTACK ; 




LXI 


H,BACT ; 




LDA 


WACT ; 




SUB 


M ; 




LXI 


H , BRDC ; 




ADD 


M j 




MOV 


M,A ; 




LDA 


PI ; 




ANA 


A : 




JZ 


PT25 ; 




CALL 


XCHNG ; 




XRA 


A ; 




CMP 


E ; 




JRZ 


PT23 ; 




DCR 


D ; 




LDA 


PI ; 




LXI 


H, COLOR 




XRA 


M ; 




BIT 


7, A 




MOV 


A f E ; 




JRNZ 


PT20 ; 




LXI 


H,PTSL : 




CMP 


H ; 




JRC 


PT23 ; 




MOV 


H,E ; 




LIXD 


HLPTRJ ; 




LDA 


M3 




CMP 


MLTOP(X) 




JRNZ 


PT23 ; 




STA 


PTSCK ; 




JMP 


PT23 



Jump 

Has piece moved yet ? 

No - jump 

Jump 

Has piece moved yet ? 

Yes - jump 

Two point penalty for whits 

Check piece color 

Jump if white 

Two point penalty for clac*. 

Get address of board contt^ 

Add on penalty/bonus pointc 

Save 

Zero out attack list 



Build attack lis 
Get black attack 
Get white attack 
Compute count di 
Address of board 
Accum board cont 
Save 

Get piece on cur 
Is it empty ? 
Yes - jump 
Evaluate exchang 
Check for a loss 
Points lost ? 
No - Jump 
Deduct half a Pa 
Get piece under 
Color of side ju 
Compare with pie 
Do colors match 
Points lost 
Jump if no match 
Previous max poi 
Compare to curre 
Jump if greater 
Store new value 
Load pointer to 
Get position of 
Is it the one mo 
No - jump 
Save position as 
Jump 



t for squab 
er count c^v- 

er count 
f f erence 
control 
rol score 

rent square 



e, if any 



wn value 
attack 
st moved 
ce 



nts lost 

nt value 

than, 

as max Ibtf 

this move 

lost piet fc 

v ing ? 



a flag 



50 



fT2«: 



tt23: 



JT25: 



n25A: 



LXI 


H,PTSW1 


CMP 


M 


JRC 


. + 4 


MOV 


A,M 


MOV 


M,E 


LXI 


H,PTSW2 


CMP 


M 


JRC 


PT23 


MOV 


M,A 


LXI 


H,P1 


BIT 


?,M 


MOV 


A,D 


JRZ 


.+4 


NEG 




LXI 


H , MTRL 


ADD 


M 


MOV 


M,A 


LDA 


M3 


INR 


A 


CPI 


99 


JNZ 


PT5 


LDA 


PTSCK 


ANA 


A 


JRZ 


PT25A 


LDA 


PTSW2 


STA 


PTSWl 


XRA 


A 


STA 


PTSW2 


LDA 


PTSL 


ANA 


A 


JRZ 


.+3 


DCR 


A 


MOV 


B,A 


LDA 


PTSW1 


ANA 


A 


JRZ 


.+11 


LDA 


PTSW2 


ANA 


A 


JRZ 


. + 5 


DCR 


A 


SRLR 


A 


SUB 


B 


LXI 


4, COLOR 


BIT 


7,M 


JRZ 


.+4 


NEG 




LXI 


H,MTRL 


ADD 


M 


LXI 


H.MV0 



; Previous maximum points won 

; Compare to current value 

; Jump if greater than 

j Load previous max value 

I Store new value as max won 

; Previous 2nd max points won 

; Compare to current value 

; Jump if greater than 

; Store as new 2nd izax lost 

; Get piece 

t Test color 

; Value of piece 

; Jump if white 

; Negate for black 

Get addrs of material total 

Add new value 

Store 

Get current board position 

Increment 

At end of board ? 

No - jump 

Moving piece lost flag 

Was it lost ? 

No - jump 

2nd max points won 

Store as max points won 

Zero out 2nd max points won 

Get max points lost 

Is it zero ? 

Yes - jump 

Decrement it 

Save it 

Max points won 

Is it zero ? 

Yes - jump 

2nd max points won 

Is it zero ? 

Yes - jump 

Decrement it 

Divide it by 2 

Subtract points lost 

Color of side just moved 

Is it white ? 

Yes - jump 

Negate for black 

Net material on board 

Add exchange adjustments 

Material at ply 3 



El 



SUB 


« ; 


MOV 


B,A ; 


HVI 


A, 30 


CALL 


LIMIT 


MOV 


E,A 


LDA 


BRDC 


LXI 


H,BC0 ; 


SUB 


M ; 


MOV 


B,A ; 


LDA 


PTSCK ; 


ANA 


A ; 


JRZ 


-+4 ; 


MVI 


B,0 


MVI 


A, 6 ; 


CALL 


LIMIT 


MOV 


D,A 


MOV 


Aft J 


ADD 


A ; 


ADD 


A 


ADD 


D 


LXI 


H, COLOR 


BIT 


7,M 


JRNZ 


.+4 ; 


NEG 




AD I 


80H ; 


STA 


VALM ; 


LIXD 


MLPTRJ ; 


MOV 


MLVAL(X),A ; 


RET 





Subtract froia current 

Save 

Load material limit 

Limit to plus or minus valj 

Save limited value 

Get board control points 

Board control at ply zero 

Get difference 

Save 

Moving piece lost flag 

Is it zero ? 

Yes - jump 

Zero board control points 

Load board control limit 

Limit to plus or minus val^- 

Save limited value 

Get material points 

Multiply by 4 

Add board control 

Color of side just moved 

Is it white ? 

No - jump 

Negate for white 

Rescale score (neutral = fc 

Save score 

Load move list pointer 

Save score in move list 

Return 
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LIMIT ROUTINE 



FUNCTION: — To limit the magnitude of a given value 
to another given value. 



CALLED BY: — POINTS 



CALLS: 



LIMIT: 



11M10: 



— None 



ARGUMENTS: — Input - Value to be limited in the B 

register. 
- Value to limit to in the A register, 
Output - Limited value in the A register. 



BIT 


7,8 


JZ 


LIM10 


NEG 




CMP 


B 


RNC 




MOV 


A,B 


RET 




CMP 


B 


RC 




MOV 


A,B 


RET 





Is value negative ? 

No - jump 

Make positive 

Compare to limit 

Return if outside limit 

Output value as is 

Return 

Compare to limit 

Return if outside limit 

Output value as is 

Return 



.END 
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MOVE ROUTINE 



FUNCTION: 



CALLED BY: 



CALLS: 



To execute a move from the move list on 
board array. 

CPTRMV 

PLYRMV 

EVAL 

FNDMOV 

VALMOV 



thi 



None 



t ARGUMENTS: — None 



HOVE: 



MV1: 



MV5: 



LHLD 


MLPTRJ 


INX 


H 


ZNX 


H 


MOV 


A,M 


STA 


Ml 


INX 


H 


MOV 


A,M 


STA 


M2 


INX 


H 


MOV 


D,M 


LIXD 


Ml 


MOV 


E,BOARD(X) 


BIT 


5,D 


JRNZ 


MV15 


MOV 


A,E 


AN I 


7 


CPI 


QUEEN 


JRZ 


MV20 


CPI 


KING 


JRZ 


MV30 


LIYD 


M2 


SET 


3.E 


MOV 


BOARD (Y) ,E 


HVI 


BOARD (X) , 


BIT 


6, D 


JRNZ 


MV40 


MOV 


A,D 


AN I 


7 


CPI 


QUEEN 


RNZ 




LXI 


H.POSQ 


BIT 


7,D 


JRZ 


MV10 


INX 


H 



Load move list pointer 
Increment past link bytes 

"From" position 

Save 

Increment pointer 

"To" position 

Save 

Increment pointer 

Get captured piece/flags 

Load "from* pos board index 

Get piece moved 

Test Pawn promotion flag 

Jump if set 

Piece moved 

Clear flag bits 

Is it a queen ? 

Yes - jump 

Is it a king ? 

Yes - jump 

Load "to" pos board index 

Set piece moved flag 

Insert piece at new posit;.** - 

Empty previous position 

Double move ? 

Ye s - j ump 

Get captured piece, if any 

Was it a queen ? 

No - return 

Addr of saved Queen posit i*** 

Is Queen white ? 

Yes - jump 

Increment to black Queen p*i 
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tilt'- 


XRA 
MOV 
RET 


A 

M,A 


tllSi 


SET 
JMP 


2,E 
MV5 




LXI 
BIT 


H,POSQ 
7,E 


JRZ 


MV2 2 




I NX 


H 


mW22: 


LDA 
HOV 


M2 
M r A 




JMP 


MV5 


>W30: 


LXI 
BIT 


H,POSK 
6,D 




JRZ 


MV21 




SET 


4,E 




JMP 


MV21 


K^U: 


LHLD 
LXI 


MLPTRJ 
D,8 




DAD 


D 




JMP 


MV1 



I Set saved position to zeco 

Return 

Change Pawn to a Queen 

Jump 

Addr of saved Queen position 

Is Queen white ? 

Yes - jump 

Increment to black Queen pos 

Get new Queen position 

Save 

Jump 

Get saved King position 

Castling ? 

No - jump 

Set King castled flag 

Jump 

Get move list pointer 

Increment to next move 

Jump (2nd part of dbl move) 
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...•ft************ 

; UN-MOVE ROUTINE 

; 

; 
; 
; 

r 

; 

; 
; 



FUNCTION: 



CALLED BY; 



♦A****************************************,, 

To reverse the process of the move routi-, 
thereby restoring the board array to its 
previous position. 

— VALMOV 
EVAL 
FNDMOV 
ASCEND 



CALLS; 



None 



% ARGUMENTS: - 

.************** 

UNMOVE: LHLD 
I NX 



UM1 



UM5: 
UM6: 



INX 

MOV 

STA 

INX 

MOV 

STA 

INX 

MOV 

LIXD 

MOV 

BIT 

JRNZ 

MOV 

AN I 

CPI 

JR2 

CPI 

JRZ 

BIT 

JRNZ 

LIYD 

MOV 

MOV 

ANI 

MOV 

BIT 

JRNZ 

MOV 

ANI 

CPI 

RNZ 



- None 
************ 

MLPTRJ 

H 

H 

A,M 

Ml 

H 

A,M 

M2 

H 

D,M 

M2 

E , BOARD (X) 

5,D 

UM15 

A,E 

7 

QUEEN 

UM2fl 

KING 

UM30 

4,D 

UM16 

Ml 

BOARD (Y) ,E 

A,D 

8FH 

BOARD (X) , A 

6,D 

UM4 

A,D 

1 

QUEEN 



********##******************»*»., 

; Load move list pointer 
r Increment past link byte: 



Get "from" position 
Save 

Increment pointer 
Get "to" position 
Save 

Increment pointer 
Get captured piece/flags 
Load "to" pos board indei 
Get piece moved 
Was it a Pawn promotion ; 
Yes - jump 
Get piece moved 
Clear flag bits 
Was it a Queen ? 
Yes - jump 
Was it a King ? 
Yes - jump 

Is this 1st trove for pier- 
Yes - jump 

Load "from" pos board i^Af 
Return to previous boar- 
Get captured piece, if Ot- 
Clear flags 
Return to board 
Was it a double move ? 
Yes - jump 

Get captured piece, if <*- 
Clear flag bits 
Was it a Queen ? 
No - return 
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LXI 


H,POSQ 




BIT 


7,D 




JRZ 


CJM10 




INX 


H 


;!llfl: 


LDA 
MOV 
RET 


M2 
M,A 


C«15: 


RES 
JMP 


2,E 

UM5 


:M16: 


RES 
JMP 


3,E 

UM6 


:K21: 


LXI 
BIT 
JRZ 


H,POSQ 

7,E 

UM22 




INX 


B 


CH22: 


LDA 
MOV 


Ml 
M,A 




JMP 


UM5 


CM30: 


LXI 


H.POSK 




BIT 


6,D 




JRZ 


UM21 




RES 


4,E 




JMP 


UM21 


CK40: 


LHLD 


MLPTRJ 




LXI 


D,8 




DAD 


D 




JMP 


UM1 



; Address of saved Queen pos 

1 Is Queen white 7 

; Yes - jump 

; Increment to black Queen pos 

; Queen's previous position 

; Save 

Return 

Restore Queen to Pawn 

Jump 

Clear piece moved flag 

Jump 

Addr of saved Queen position 

Is Queen white ? 

Yes - jump 

Increment to black Queen pos 

Get previous position 

Save 

Jump 

Address of saved King pos 

Was it a castle ? 

No - jump 

Clear castled flag 

Jump 

Load move list pointer 

Increment to next move 

; Jump (2nd pact of dbl move) 
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I SORT ROUTINE 


j FUNCTION: 


To sor t tr.e 




increasing ~* 


; CALLED BY: — 


FNDMOV 


; CALLS: 


EVAL 


1 ARGUMENTS: — 


None 


• ********** ******** *•**«**•*•• 



.—we list in order of 
cie value scores. 



SORTM : 


LBCD 


MLPTRI 




LXI 


D,0 


SR5: 


MOV 


H,B 




MOV 


L,C 




MOV 


C,M 




I NX 


H 




MOV 


B,M 




MOV 


M,D 




DCX 


B 




MOV 


M,E 




XRA 


A 




CMP 


B 




RZ 




SR10: 


SBCD 


MLPTRJ 




CALL 


EVAL 




LHLD 


MLPTRI 




LBCD 


MLPTRJ 


SR1S: 


MOV 


E,M 




I NX 


H 




MOV 


D,M 




XRA 


A 




CMP 


D 




JRZ 


SR25 




PUSH 


D 




POP 


X 




LDA 


VALM 




CMP 


MLVAL{X) 




JRNC 


SR30 


SR25: 


MOV 


M f B 




DCX 


H 




MOV 


M,C 




JMP 


SR5 


SR30: 


XCHG 






JMP 


SR15 



Move list begin pointer 
Initialize working point?:. 



Link to next move 



; Store to link in list 



; End of list ? 



Yes - return 
Save list pointer 
Evaluate move 
Begining of move list 
Restore list pointer 
Next move for compare 



; At end of list ? 

; Yes - jump 

j Transfer move pointer 

Get new move value 
Less than list value ? 
No - jump 
Link new move into list 



; Jump 

; Swap pointers 

; Jump 
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EVALUATION ROUTINE 
FUNCTION: 



To evaluate a given move in the move list. 
It first makes the move on the board, then if 
the move is legal, it evaluates it, and then 
restores the boaard position. 



CALLED BY: 
CALLS: 



ARGUMENTS: 



— SORT 

— MOVE 
INCHK 
FINFNO 
POINTS 
UNMOV 

None 



CVAL: 


CALL 


MOVE 




CALL 


INCHK 




ANA 


A 




JRZ 


EV5 




XRA 


A 




STA 


VALM 




JMP 


EV10 


EV5: 


CALL 


PINFND 




CALL 


POINTS 


EV10: 


CALL 
RET 


UNMOVE 



Make move on the board array 

Determine if move is legal 

Legal move ? 

Yes - jump 

Score of zero 

For illegal move 

Jump 

Compile pinned list 

Assign points to move 

Restore board array 

Return 
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#**#**+*****#*#****t*»*********»******»*»**«*««***«#**»»t 



FIND MOVE ROUTINE 



FUNCTION: 



CALLED BY: 



CALLS: 



To determine the computer's best move by 
performing a depth first tree search using 
the techniques of alpha-beta pruning. 



; ARGUMENTS: 


— None 


.*********************»** 


FNDMOV: LDA 


MOVENO 


CPI 


1 


CZ 


BOOK 


XRA 


A 


STA 


NPLY 


LXI 


H,0 


SHLD 


BESTM 


LXI 


H r KLIST 


SHLD 


MLNXT 


LXI 


H,PLYIX-2 


SHLD 


MLPTRI 


LDA 


KOLOR 


STA 


COLOR 


LXI 


H, SCORE 


SHLD 


SCRIX 


LDA 


PLYMAX 


AD I 


2 


MOV 


B,A 


XRA 


A 


MOV 


M,A 


INX 


H 


DJNZ 


.-2 


STA 


BC3 


STA 


MV9 


CALL 


PINFND 


CALL 


POINTS 


LDA 


BRDC 


STA 


BC0 


LDA 


MTRL 


STA 


MVQ 


FMS: LXI 


H,NPLY 


INR 


M 



— CPTRMV 

— PINFND 
POINTS 
GENMOV 
SORTM 
ASCEND 
UNMOV 



at*******************************************. ,, 



Currnet move number 
First move ? 

Yes - execute book opening 
Initialize ply number to :■ 

; Initialize best move to zo: 

; Initialize ply list pointc: 

; Initialize color 

; Initialize score index 

i Get max ply number 

; Add 2 

; Save as counter 

; Zero out score table 



Zero ply board control 

Zero ply 2 material 

Complie pin list 

Evaluate board at ply 2 

Get board control points 

Save 

Get material count 

Save 

Address of ply counter 

Increment ply count 
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XRA A 

STA MATEF 

CALL GENMOV 

LDA NPLY 

LXI H,PLYMAX 

CHP M 

CC SORTM 

LHLD MLPTRI 

SHLD MLPTRJ 

FK15: LHLD MLPTRJ 

MOV E , M 

INX H 

MOV D,M 

MOV A,D 

ANA A 

JR2 FM25 

SDED MLPTRJ 

LHLD MLPTRI 

MOV M,E 

INX H 

MOV M , D 

LDA NPLY 

LXI H,PLYMAX 

CMP M 

JRC FM18 

CALL MOVE 

CALL INCHK 

ANA A 

JR2 .+8 

CALL UNMOVE 

JMP FM15 

LDA NPLY 

LXI H,PLYMAX 

CMP M 

JRNZ FM35 

LDA COLOR 

XRI SkJH 

CALL INCHKl 

ANA A 

JRZ FM35 

JMP FM19 

r "l8: LIXD MLPTRJ 

MOV A,MLVAL(X) 

ANA A 

JRZ FM15 

CALL MOVE 

'"■19: LXI H, COLOR 

MVI A # 80H 

XRA M 

MOV M , A 



j Initialize mate flag 

; Generate list of moves 

; Current ply counter 

j. Address of maximum ply number 

I At max ply ? 

y No - call sort 

; Load ply index pointer 

; Save as last move pointer 

; Load last move pointer 

; Get next move pointer 



; End of move list ? 

; Yes - jump 

; Save current move pointer 

; Save in ply pointer list 



Current ply counter 

Maximum ply number ? 

Compare 

Jump if not max 

Execute move on board array 

Check for legal move 

Is move legal ? 

Yes - jump 

Restore board position 

Jump 

Get ply counter 

Max ply number 

Beyond max ply ? 

Yes - jump 

Get current color 

Get opposite color 

Determine if King is in check 

In check ? 

No - jump 

Jump (One more ply for check) 

Load move pointer 

Get move score 

Is it zero (illegal move) ? 

Yes - jump 

Execute move on board array 

Toggle color 



Save new color 



Gl 



FM25: 



FM30: 



FM35: 



FM36; 



FM37: 



BIT 


7, A 


JRNZ 


.+6 


LXI 


H,MOVENO 


INR 


M 


LHLD 


SCRIX 


HOV 


A,M 


INX 


H 


INX 


H 


MOV 


M,A 


DCX 


If 


SHLD 


SCRIX 


JMP 


FM5 


LDA 


MATEF 


ANA 


A 


JRNZ 


FM30 


LDA 


CKFLG 


ANA 


A 


MVI 


A,80H 


JRZ 


FM36 


LDA 


MOVENO 


STA 


PMATE 


MVI 


A,0FFH 


JMP 


FM36 


LDA 


NPLY 


CPI 


1 


RZ 




CALL 


ASCEND 


LBLD 


SCRIX 


INX 


H 


INX 


H 


MOV 


A,M 


DCX 


H 


DCX 


H 


JMP 


FM37 


CALL 


PINFND 


CALL 


POINTS 


CALL 


UNMOVE 


LDA 


VALM 


LXI 


H, MATEF. 


SET 


0,M 


LHLD 


SCRIX 


CMP 


H 


JRC 


FM4D 


JRZ 


FM4 


NEG 




INX 


H 


CMP 


M 


JC 


FM15 


JZ 


FM15 



; Is it white ? 

; Ho - jump 

; Increment move number 

; Load score table pointer 
j Get score two plys above 
j Increment to current ply 

; Save score as initial value 
; Decrement painter 
; Save it 

; Jump 

j Get mate flag 

j Checkmate or stalemate ? 

No - jump 

Get check flag 

Was King in check ? 

Pre-set stalemate score 

No - jump (stalemate) 

Get move number 

Save 

Pre-set checkmate score 

Jump 

Get ply counter 

At top of tree ? 

Yes - return 

Ascend one ply in tree 

Load score table pointer 

Increment to current ply 

Get score 
Restore pointer 



Jump 

Compile pin list 

Evaluate move 

Restore board position 

Get value of cove 

Set mate flag 

Load score table pointer 

Compare to score 2 ply ^ : 

Jump if less 

Ju.T.p if equal 

Negate score 

Incr score table pointer 

Compare to score 1 ply - : 

Jump if less than 

Jump if equal 
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FH40: 



MOV 


M,A 


LDA 


NPLY 


CPI 


1 


JNZ 


FM15 


LHLD 


MLPTRJ 


SHLD 


BESTM 


LOA 


SCORE+1 


CPI 


0FFH 


JNZ 


FM15 


LXI 


H,PLYMAX 


DCR 


M 


DGR 


M 


LDA 


KOLOR 


BIT 


7, A 


RZ 




LXI 


H,PMATE 


DCR 


M 


RET 




CALL 


ASCEND 


JMP 


FM15 



Save as new score 1 ply above 

Get current ply counter 

At top of tree ? 

No - jump 

Load current move pointer 

Save as best move pointer 

Get best move score 

Was it a checkmate ? 

No - jump 

Get maximum ply number 

Subtract 2 

Get computer's color 

Is it white ? 

Yes - return 

Checkmate move number 

Decrement 

Return 

Ascend one ply in tree 

Jump 
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ASCEND TREE 
************ 

FUNCTION: 



CALLED BY: 
CALLS: 



; ARGUMENTS: 
.*****.*•***** 

ASCEND: LXI 
MVI 
XRA 
MOV 
BIT 
JRZ 
LXI 
DCR 
LHLD 
DCX 
SHLD 
LXI 
DCR 
LHLD 
DCX 
MOV 
DCX 
MOV 
SpED 
DCX 
MOV 
DCX 
MOV 
SHLD 
SDED 
CALL 
RET 



ROUTINE 

********************************************* 

To adjust all necessary parameters to 
ascend one ply in the tree. 

— FNDMOV 

— UNMOV 

None 

************************************************ 



H.COLOR 

A,83H 

M 

M,A 

7, A 

.+6 

H,MOVENO 

M 

SCRIX 

H 

SCRIX 

H,NPLY 

M 

MLPTRI 

a 

D,M 

H 

E,M 

MLNXT 

H 

D,M 

H 

E,M 

MLPTRI 

MLPTRJ 

UNMOVE 



; Toggle color 



Save new color 

Is it white ? 

Yes - jump 

Decrement move number 

Load score table index 

Decrement 

Save 

Decrement ply counter 

Load ply list pointer 

Load pointer to move list to: 



j Update move list avail ptr 
; Get ptr to next move to unco 



Save new ply list pointer 
Save next move pointer 
Restore board to previous pi. 
Return 
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ONE MOVE BOOK OPENING 



FUNCTION: — To provide an opening book of a single 
move. 



CALLED BY: — FNDMOV 



CALLS: 



— None 



ARGUMENTS: 
************* 



BOOK: 



BM5: 



BM9: 



POP 

LXI 

MVI 

LXI 

SHLD 

LXI 

LDA 

ANA 

JRNZ 

LDAR 

BIT 

RZ 

INR 

INR 

INR 

RET 

INR 

INR 

INR 

INR 

INR 

INR 

LIXD 

MOV 

CPI 

JRZ 

CPI 

JRZ 

CPI 

JRZ 

RC 

CPI 
RZ 

INR 
INR 
INR 
RET 



-r None 
************* 

PSW- 

H,SCORE+l 

M,0 

H,BMOVES-2 

BESTM 

H,BESTM 

KOLOR 

A 

BM5 

0,A 

M 
K 
M 

M 

M 

M 

M 

M 

M 

MLPTRJ 

A r MLFRP(X) 

22 

BM9 

27 

BM9 

34 

BM9 



35 

K 
M 
M 



********************************* 

Abort return to FNDMOV 

Zero out score 

Zero out score table 

Init best move ptr to book 



Initialize address of pointer 

Get computer's color 

Is it white ? 

No - jump 

Load refresh reg (random no) 

Test random bit 

Return if zero (P-K4) 

P-Q4 



; Return 

; Increment to black moves 



Pointer to opponents 1st move 

Get "from"' position 

Is it a Queen Knight move ? 

Yes - Jump 

-Is it a King Knight move ? 

Yes - jump 

Is it a Queen Pawn ? 

Yes - jump 

If Queen side Pawn opening - 

return (P-K4) 

Is it a King Pawn ? 

Yes - return <P-K4) 

(P-Q4) 



; Return to CPTRHV 
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; . «. 

; GRAPHICS DATA BASE 



DESCRIPTION: The Graphics Data Base contains the 

necessary stored data to propuce the piece 
on the board. Only the center 4x4 blocks an 
stored and only for a Black Piece on a White 
square. A White piece on a black square is 
produced by complementing each block, and a 
piece on its own color square is produced 
by moving in a kernel of 6 blocks. 



BLBASE 
BLOCK 



LOC 



.RADIX 

.BYTE 

.BYTE 

.BYTE 

,BYTE 

,BYTE 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

. BYTE 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

. BYTE 

.BYTE 



KERNEL = 



BYTE 
BYTE 
.BYTE 
.BYTE 
. BYTE 
, BYTE 
.BYTE 
.RADIX 



START+384 

START+512 

.-BLBASE 

16 

60,80,80,80 

80,0A0,90, 80 

80,0AF,9F,80 

80,83,83,80 

80,0B0,0B0,8 

0BE,0BF,0SF, 

0A0,0BE,0BF, 

83,83,83,81 

B0,0A0,g0,80 

0A8,03F,0BD, 

82,0AF,87,80 

82,83,83,80 

80,80,80,80 

8A,0BE,0BD,8 

80,0BF,03F,8 

82,83,83,81 

90,80,80,90 

0BF,0B4,0BE, 

8B,0BF,9F,81 

83,83,83,81 

80,0B8,90,80 

0BC,0BA,CB8, 

0AF,0BF,0BF, 

83,83,83,81 

90,0B0,330,8 

0BF, 0BF,0B7, 

9F,0BF,BBD,8 

8C, 80,88,9D 

.-BLBASE 

03F,9F,0AF,0 

89,0AF,0BF,9 

97,0BE,96,0B 

035, OA 1,92,0 

0A8,9B,0B9,0 

0A3,85,CA7,9 

0A8,0BF,89,0 

10 



; Black Pawn on White square 



; Black Knight on White squa: 
95 

85 



B0 



95 



; Black Bishop on White squa: 



; Black Rook on White square 



; Black Queen on White squar- 



; Black King on White square 



94 
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; Toppled Black King 


80 









BF,9A,0A5 i 


Pawn Kernel 


F,039,9F j 


Knight Kernel 


D, 93, 039 ; 


Bishop Kernel 


3F,0AA,95 


Rook Kernel 


B6,0AF,0A7 


Queen Kernel 


A,0BF,9F j 


King Kernel 


A2,EF,86 i 


• Toppled King Kci 
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j STANDARD MESSAGES 



GRTTNG: 

ANAMSG: 

CLRMSG: 

TITLE1: 

TITLE2: 

SPACE: 

HVENUM: 

TITLE3: 



MVEMSG 

0.0: 

0.0.0 

CKMSG 

KTMSG 

KTPL: 

PCS: 

UWIN: 

IHIN: 

AGAIN: 

CRTNES 

PLYDEP 

TITLE4 

KSMOVE 

BLANKR 

P. PEP: 

IKVAL1 

INVAL2 



,LOC 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

•ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

■ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 



START+1800H 

"WELCOME TO. CHESS! CARE FOR A GAME7" 

"WOULD YOU LIKE TO ANALYZE A POSITION?" 

"DO YOU WANT TO PLAY WHITE (w) OR BLACK (b)?" 

"SARGON" 

"PLAYER" 



01 " 
i" 

"H83] 
~H83] 
"H83] 
"H83] 
"H83] 
"H83J 

■ 

"H83] 
~H83] 
~H83] 
~H83] 
"H83] 
"H83] 



"al-al" 
■0-0 " 
"0-0-0" 
"CHECK" 
"MATE IN " 

"KQRBNP" 

"YOU WIN" 

"I WIN" 

"CARE FOR ANOTHER GAME?" 

"IS THIS RIGHT?" 

"SELECT LOOK AHEAD (1-6) 

■I M 

"WHOSE MOVE IS IT?" 

I'HICJ 

"PxPep" 

"INVALID MOVE" 
"TRY AGAIN" 



j For output of blank area 



Part of TITLE 3 - Underlines 



Valid piece characters 



Control-\ 



07 



t VARIABLES 



BRDPOS 
ANBDPS 
INDXER 
NORMAD 



.BLKB 
.BLKB 
.WORD 

.BLKW 



LINECT: .BYTE 



1 
1 
BLBASE 

1 

a 



Index into the board array 
Additional index required Car ANAL.- 1 : 
Index into graphics data base 
The address of the upper left hand 
corner of the square on the board 
Current line number 



j MACRO DEFINITIONS 

J 

', 

; 

; 
; 



All input/output to SARGON is handled in the form of 
macro calls to simplify conversion to alternate systems. 
All of the input/output macros conform to the Jove monitor 

of the Jupiter III computer. 

a****************************************************** 



.*** OUTPUT <CRXLF> *** 

.DEFINE CARRET- 

[RST 7 

.BYTE 92H,1AH 

.WORD 0] 
I*** CLEAR SCREEN *** 

.DEFINE CLRSCR- 

[RST 7 

.BYTE 0B2H,1AH 

.WORD BLANKR,1] 
j*** PRINT ANY LINE (NAME, LENGTH) *** 

.DEFINE PRTLIN [NAME , LNGTH] = 

[RST 7 

.BYTE 0B2H,1AH 

•WORD NAME,LNGTH] 
;•** PRINT ANY BLOCK (NAME, LENGTH) **' 

.DEFINE PRTBLK [NAME , LNGTH] « 

[RST 7 

.BYTE 0B3H,1AH 

.WORD NAME,LNGTH] 
;*** EXIT TO MONITOR *** 

.DEFINE EXIT= 

[RST 7 

.BYTE 01FHJ 
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MAIN PROGRAM DRIVER 



FUNCTION: — To coordinate the game moves. 
CALLED BY: — None 



; CALLS: 


- INTERR 




INITBD 




DSPBRD 




CPTRMV 




PLYRM-V 




TBCPCL 




PGIFND 


I MACRO CALLS: 


CLRSCR 




CARRET 




PRTLIN 




PRTBLK 


j ARGUMENTS: 


None 


•ft************************** 


.LOC 


START+1A00H 


DRIVER: LXI 


SP, STACK 


CLRSCR 




PRTLIN 


GRTTNG,34 


DRIV01: CALL 


CHARTR 


CARRET 




CPI 


59H 


JNZ 


ANALYS 


SUB 


A 


STA 


COLOR 


CALL 


INTERR 


CALL 


INITBD 


MVI 


A,l 


STA 


MOVENO 


STA 


LINECT 


LXI 


H f MVENUM 


MVI 


M f 30H 


I NX 


H 


MVI 


M,31H 


INX 


H 


MVI 


M,20H 


CALL 


DSPBRD 


PRTLIN 


TITLE4, 15 


PRTLIN 


TITLE3,15 


DRIV04: PRTBLK 


MVENUM,3 


LDA 


KOLOR 


ANA 


A 


JRNZ 


DR08 



******************************* 

; Above the move logic 

; Set stack pointer 

j Blank out screen 

; Output greeting 

; Accept answer 

j New line 

Is it a "Y* ? 

Yes - jump 

Code of White is zero 

White always moves first 

Players color/search depth 

Initialize board array 

Move number is 1 at at start 

Save 

Line number is one at start 

Address of ascii move number 

Init to "01 ' 



Set up graphics board 
Put up player headings 

Display move number 
Bring in computer's color 
Is it white ? 
No - jump 



69 



DR08: 



DR0C; 



DR18; 



DR14: 



CALL 


7CIFND 


CPI 


» 


CZ 


racpcL 


CALL 


JPTRMV 


PRTSLT 


SPACE, 1 


CALL 


?LYRMV 


CARRIT 




JMPR 


2R3C 


CALL 


PLYRMV 


PRTBLi 


i?ACE,I 


CALL 


?GIFND 


cpr 


*T 


cz 


TBCPCL 


CALL 


CPTRMV 


CARRZT 




LXI 


3,MVENUM+2 


HVI 


A,23H 


CMP 


a 


MVI 


A,3AH 


JRZ 


DR10 


INR 


M 


CMP 


M 


JRNZ 


DR14 


MVI 


M,30H 


DCX 


S 


INR 


M 


CMP 


M 


JRNZ 


DR14 


MVI 


M,30H 


*>CX 


H 


INR 


M 


CMP 


M 


JRNZ 


DR14 


MVI 


M.31H 


MVI 


A,30H 


STA 


MVENUM+2 


LXI 


H,MOVENO 


INR 


M 


JMP 


DRIV04 



Hew page if needed 

Mas page tamed ? 

Yes - Tab to computers co) 

Make and write computers r 

Output a space 

Accept and matte players - c 

New line 

Jump 

Accept and make players rrj 

Output a space 

Mew -page if needed 

Has page turned ? 

Yes - Tab to computers co. 

Make and write computers - 

Hew line 

Addr of 3rd char of move 

Ascii space 

Is char a space ? 

Set up test value 

Yes - jump 

Increment value 

Over Ascii 9 ? 

No - jump 

Set char to zero 

2nd char of Ascii move no. 

Increment value 

Over Ascii 9 ? 

No - jump 

Set char to zero 

1st char of Ascii move no. 

Increment value 

Over Ascii 9 ? 

No - jump 

Make 1st char a one 

Make 3rd char a zero 

Hexadecimal move number 

Increment 

Jump 
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INTERROGATION FOR PLY & COLOR 



FUNCTION: — To query the player for his choice of ply 
depth and color. 

CALLED BY: -- DRIVER 

CALLS : — CHARTR 

MACRO CALLS: PRTLIN 
CARRET 

ARGUMENTS: — None 
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INTERR: PRTLIN 


CLRMSG,41 


CALL 


CHARTR 


CARRET 




CPI 


57H 


JRZ 


IH04 


sua 


A 


STA 


KOLOR 


LXI 


R,TITLEl 


LXI 


D,TITLE4+2 


LXI 


B,6 


LDIR 




LXI 


H,TITLE2 


LXI 


D,TITLE4+9 


LXI 


B,6 


LDIR 




JMPR 


IN08 


IN04: MVI 


A,83H 


STA 


KOLOR 


LXI 


H.TITLE2 


LXI 


D,TITLE4+2 


LXI 


B,6 


LDIR 




LXI 


H,TITLEl 


LXI 


D,TITLE4+9 


LXI 


B,6 


LDIR 




IN08: PRTLIN 


PLYDEP,23 


CALL 


CHARTR 


CARRET 




fcXI 


H.PLYMAX 
K,2 


CPI 


31H 


KM 




CPI 


37H 


RP 




SOI 


30H 


MOV 


H,A 


RET 





; Bequest color choice 

j Accept response 

; lev line 

j Did player request white ? 

; Yes - branch 

t Set computers color to whxtt 

; Prepare move list titles 



; Jump 

; Set computers color to blari 

; Prepare move list titles 



Request depth of search 

Accept response 

New line 

Address of ply depth variar 

Default depth of search 

Under minimum of 1 ? 

Yes - return 

Over maximum of 6 ? 

Yes - return 

Subtract Ascii constant 

Set desired depth 

Return 
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COMPUTER MOVE ROUTINE 



FUNCTION: 

CALLED BY: 
CALLS : 



MACRO CALLS: 



ARGUMENTS: 



— To control the search for the computers move 
and the display of that move on the board 
and in the move list. 

-- DRIVER 

— FNDMOV 
FCDMAT 
MOVE 
EXECMV 
BITASN 
INCHK 

; PRTBLK 
CARRET 

None 



CPTRMV : 


CALL 


FNDMOV 




LHLD 


BESTM 




SHLD 


MLPTRJ 




LDA 


SCORE+1 




CPI 


1 




JRNZ 


CP0C 




MVI 


C,l 




CALL 


FCDMAT 


CP0C: 


CALL 


MOVE 




CALL 


EXECMV 




MOV 


A,B 




ANA 


A 




JRNZ 


CP10 




MOV 


D,E 




CALL 


BITASN 




SJiLD 


MVEMSG+3 




MOV 


D,C 




CALL 


BITASN 




SHLD 


MVEMSG 




PRTBLK 


MVEMSG,5 




JMPR 


CP1C 


CP10: 


BIT 


l.B 




JRZ 


.+11 




PRTBLK 


0.0,5 




JMPR 


CP1C 




BIT 


2,B 




JRZ 


.+11 



Select best move 

Move list pointer variable 

Pointer to move data 

To check for mates 

Mate against computer ? 

No - jump 

Computer mate flag 

Full checkmate ? 

Produce move on board array 

Make move on graphics board 

and return info about it 

Special move flags 

Special ? 

Yes - jump 

"To" position of the move 

Convert to Ascii 

Put in move message 

"From" position of the move 

Convert to Ascii 

Put in move nressage 

Output text of move 

Jump 

King side castle ? 

No - jump 

Output "O-O" 

Jump 

Queen side castle ? 

No - jump 
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CPlCi 



CP24: 



PRTBLK 


0.0.0,5 


JMPR 


CP1C 


PRTBLK 


P.PEP.5 


LDA 


COLOR 


MOV 


B,A 


XRI 


80H 


STA 


COLOR 


CALL 


INCHK 


ANA 


A 


MOV 


A,B 


STA 


COLOR 


JRZ 


CP24 


CARRET 




LDA 


SCORE+1 


CPX 


flFFH 


CNZ 


TBCPMV 


PRTBLK 


CKMSG,5 


LXI 


H f LINECT 


I MR 


H 


LDA 


SCORE+1 


CPI 


flFFH 


RNZ 




MVI 


C,0 


CALL 


FCDMAT 


RET 





Output " O-O-O " 
Juap 

Output "PxPep" - En passant 
Should computer call check 7 

Toggle color 

Check for check 

Is enemy in check ? 

Restore color 

No - return 

New line 

Check for player mated 

Pocced mate ? 

No - Tab to computer colurcn 

Output "check" 

Address of screen line count 

Increment for message 

Check again for mates 

Player mated ? 

No - return 

Set player mate flag 

Pull checkmate ? 

Return 
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FORCED MATE HANDLING 



FUNCTION: 



CALLED BY: 



CALLS : 



— To examine situations where there exits 
a forced mate and determine whether or 

not the current move is checkmate. If it is, 
a losing player is offered another game, 
while a loss for the computer signals the 
King to tip over in resignation. 

— CPTRMV 



— MATED 
CHARTR 
TBPLMV 

ARGUMENTS: — The only value passed in a register is the 

flag which tells FCDMAT whether the computer 
or the player is mated. 



CDMAT: LDA 
MOV 



FM04: 



FM08; 



FH09: 



FM0C: 



LDA 
SUB 
ANA 

JRNZ 

BIT 

JRZ 

CARPET 

PRTLIN 

CALL 

PRTLIN 

JMPR 

PRTLIN 

PRTLIN 

POP 

POP 

CALL 

CLRSCR 

PRTLIN 

JMP 

BIT 

RNZ 

CARRET 

ADI 

STA 

PRTLIN 

CALL 

RET 



MOVENO 

B,A 

PMATE 

B 

A 

FM0C 

0,C 

FM04 

CKMSG,9 

MATED 

tJWIN,7 

FM08 

MTMSG,4 

IWIN,5 

H 

B 

CHARTR 

AGAIN, 22 
DRIV31 

0,c 



3flH 

MTPL 

MTM3G,9 

TBPLMV 



; Current move number 

; Save 

j Move number where mate occurs 

; Number of raoves till mate 

j Checkmate ? 

t No - jump 

l Check flag for who is mated 

I Jump if player 

; New line 

; Print "CHECKMATE" 

1 Tip over King 

; Output "YOU WIN"- 

; Jump. 

; Output "MATE" 

1 Output "I WIN" 

j Remove return addresses 



Input any char to play again 
Blank screen 

■CARE FOR ANOTHER GAME?" 
Jump (Rest of game init) 
Who has forced mate ? 
Return if player 
New line 

Number of coves to Ascii 
Place value in message 
Output "HATE IN X MOVES" 
Tab to players column 
Return 
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TAB TO PLAYERS COLUMN 



FUNCTION: 



To space over in the move listing to the 
column in which the players moves are beir-i 
recorded. This routine also reprints the 
move number. 



CALLED BY: — PLYRMV 

CALLS: — None 

MACRO CALLS: PRTBLK 

ARGUMENTS: — None 



TBPLCL: PRTBLK MVENUH.3 

LDA KOLOR 

ANA A 
RNZ 

PRTBLK SPACE, 6 
RET 



Reproduce move number 

Computers color 

Is computer white ? 

Ko - return 

Tab to next column 

Return 



*********************************************************** 

TAB TO COMPUTERS COLUMN 
*********************************************************** 

FUNCTION: — To space over in the move listing to the 
column in which the computers moves are 
being recorded. This routine also reprint.: 
the move number. 



CALLED BY: 



CALLS: 



-- DRIVER 
CPTRMV 

— None 

PRTBLK 



MACRO CALLS: 



! ARGUMENTS: — None 
I**********************************************************' 



TBCPCL: PRTBLK 


MVENUM.3 


LDA 


KOLOR 


ANA 


A 


CtZ 




PRTBLK 


SPACE, 6 


RET 





Reproduce move number 

Computer's color 

Is computer white ? 

Yes - return 

Tab to next column 

Return 
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TAB TO PLAYERS COLUMN W/O MOVE NO. 



FUNCTION: — Like TBPLCL, except that the move number 
Is not reprinted. 

CALLED BY: — FCDMAT 



TBPLMV: PRTBLK SPACE, 3 

LDA KOLOR 

ANA A 
RNZ 

PRTBLK SPACE, 6 
RET 



.♦A******************************************************* 

; TAB TO COMPUTERS COLUMN W/O MOVE NO. 

. ******* *********** *********** **************************** ft 

: FUNCTION: — Like TBCPCL, except that the move number 
t is not reprinted. 

1 

.•CALLED BY: — CPTRMV 

.*********************************************************** 

TBCPMV: PRTBLK SPACE, 3 

LDA KOLOR 

ANA A 
RZ 

PRTBLK SPACE; 6 
RET 
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BOARD INDEX TO ASCII SQUARE NAME 



FUNCTION: 



CALLED BY: 



CALLS : 



— To translate a hexadecimal index in the 
board array into an ascii description 

of the square in algebraic chess notation. 

— CPTRMV 

— DIVIDE 



ARGUMENTS: — Board index input in register D and the 

Ascii square name is output in register 

pair HL. 
******************************** ************* ****** ********* 

j Get ready for division 

; Divide 

; Get rank on 1-8 basis 

Convert file to Ascii (a-h, 

Save 

Rank 

Convert rank to Ascii (1-B) 

Save 

Return 



BITASN: SUB 


A 


MVI 


E,10 


CALL 


DIVIDE 


DCR 


D 


AD I 


60H 


MOV 


L,A 


MOV 


A,D 


AD I 


30H 


MOV 


H,A 


RET 
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fftn 



yt.t<5 MOVK ANALYSIS 



TIONi 



To accept and validate the players move 
and produce it on the graphics board. Also 
allows player to resign the game by 
entering a control-R. 



frfrtQ BY. " 


- DRIVER 


flPf+»« 


- CBARTR 
ASNTBI 




VALHOV 




EXECMV 




PGIFND 




TBPLCL 


A-IhPMENTSI - 


None 


V? «*t»***************** 


.0* Si 1 


CHARTR 


12H 


JZ 


FM09 


HOV 


H,A 


CALL 


CHARTR 


MOV 


L,A 


CALL 


ASNTBI 


SUB 


B 


JR2 


FL08 


STA 


MVEMSG 


CALL 


CHARTR 


CALL 


CHARTR 


HOV 


H,A 


CALL 


CHARTR 


MOV 


L,A 


CALL 


ASNTBI 


SUB 


B 


JRZ 


PL0B 


STA 


MVEMSG+1 


CALL 


VALMOV 


ANA 


A 


JN3 


PL08 


CALL 


EXECMV 


RET 




*£• LXI 


H,LINECT 


INR 


M 


INR 


M 


CAHK&T 




CALL 


PGIFND 


PRTLIN 


INVALl.12 


PRTLIN 


INVAL2,9 


CALL 


TBPLCL 


JMP 


PLYRMV 



r*********************************** 

; Accept "from - file letter 



; 


Is it instead a Control-R ? 


; 


Yes - jump 


* 


Save 


• 


Accept "from" rank number 


; 


Save 


; 


Convert to a board index 


* 


Gives board index, if valid 


j 


Jump if invalid 


r 


Hove list "from" position 


* 
t 


Accept separator & ignore it 


* 
t 


Repeat for "to" position 



' position 
a legal move 



Move list "to 
Determines if 
Legal ? 

No - jump 

Make move on graphics board 

Return 

Address of screen line count 

Increase by 2 for message 

New line 

New page if needed 

Output "INVALID MOVE" 

Output "TRY AGAIN" 

Tab to players column 

Jump 
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ASCII SQUARE NAME TO BOARD INDEX 



FUNCTION; 



CALLED BY: 



CALLS: 



ARGUMENTS: 



************* 



To convert an algebraic square name in 
Ascii to a hexadecimal board index. 
This routine also checks the input for 
validity. 



— PLYRMV 

— MLTPLY 

Accepts the 

and outputs 

Register B - 

A if invalid 
**************** 



ASNTBI: MOV 


A,L 


SUI 


30H 


CPI 


1 


JM 


ATE) 4 


CPI 


9 


JRNC 


AT04 


INR 


A 


MOV 


D,A 


MVI 


E, 10 


CALL 


MLTPLY 


MOV 


A,H 


SUI 


40H 


CPI 


1 


JM 


AT04 


CPI 


9 


JRNC 


AT04 


ADD 


D 


MVI 


B,0 


RET 




AT04: MOV 


B,A 


RET 





square name in register pair HL 
the board index in register A. 
if ok. Register B ■ Register 

******************************* 

; Ascii rank 

; Rank 1-8 

; Check lower bound 

; Jump if invalid 

; Check upper bound 

i Jump if invalid 

; Rank 2-9 

; Ready for cultiplication 



t Multiply 
Ascii file letter (a - h) 
File 1-8 
Check lower bound 
Jump if invalid 
Check upper bound 
Jump if invalid 
File+Rank{20-90)=Board index 
Ok flag 
Return 
Invalid flag 
Return 
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ft********************************************************** 
VALIDATE MOVE SUBROUTINE 



FUNCTION: — To check a players move for validity. 
CALLED BY: — PLYRMV 



CALLS: 



VA5; 



ARGUMENTS: 

************* 

VALMOV: LHLD 
PUSH 
LDA 
XRI 
STA 
LXI 
SHLD 
LXI 
SHLD 
CALL 
LXI 
LDA 
CMP 
JRNZ 
LDA 
CMP 
JRZ 
MOV 
MOV 
XRA 
CMP 
JRZ 
PUSH 
POP 
JMPR 
SIXD 
CALL 
CALL 
ANA 
JRNZ 
POP 
RET 
CALL 
MVI 
POP 
SHLD 
RET 



VA6: 



VA7: 



VA8: 

VA9: 
VAlfl: 



— GENMOV 
MOVE 
INCHK 
UNMOVE 

Returns flag 

and 1 for in 

**************** 

MLPTRJ 

H 

KOLOR 

80H 

COLOR 

H.PLYIX-2 

MLPTRI 

H,MLIST+1024 

MLNXT 

GENMOV 

X,MLIST+1024 

MVEMSG 

MLFRP(X) 

VA6 

MVEMSG+1 

MLTOP(X) 

VA7 

E,KLPTR(X) 

D,MLPTR+1 (X) 

A 

D 

VA10 

D 

X 

VA5 

MLPTRJ 

MOVE 

INCHK 

A 

VA9 

H 

UNMOVE 
A,l 
H 
MLPTRJ 



in register A, for valid 

valid move. 
******************************* 

; Save last move pointer 

; Save register 

; Computers color 

•Toggle color 

% Store 

; Load move list index 

; Next available list pointer 



Generate opponents moves 

Index to start of moves 

"From" position 

Is it in list ? 

No - jump 

"To" position 

Is it in list ? 

Yes - jump 

Pointer to next list move 

; At end of list ? 

; Yes - jump 

} Move to X register 

Jump 

Save opponents move pointer 
Make move on board array 
Was it a legal move ? 

No - jump 

Restore saved register 

Return 

Un-do move on board array 

Set flag for invalid move 

Restore saved register 

Save move pointer 

Return 
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; •«•••••••••••••••*••••< 

j ACCEPT INPUT CHARATER 



; FUNCTION: 

; 
; 
» 

i 

; 



— Accepts a single character input from the 
console keyboard and places it in the A 
register. The character is also echoed on 
the video screen, unless it is a carrage 

return, line feed, or backspace. 

Lower case alphabetic characters are folded 

to upper case. 



CALLED BY: — 



CALLS: 



DRIVER 
INTERR 
PLYRMV 
ANALYS 



None 



; ARGUMENTS: 
; NOTES: 

; 
; 
; 



— Character input is output in register A. 



— This ro 

monitor 

for the 

system 
************************ 



CHARTR: RST 

.BYTE 

CPI 

RZ 

CPI 

RZ 

CPI 

RZ 

RST 

.BYTE 

AN I 

CPI 

RP 

CPI 

RM 

SUI 

RET 



7 
81H,0 

0OH 

BAH 

08H 

7 

81H.1AH 
7FH 
7BH 

61H 

20H 



utine contains a reference to a 
function of the Jove monitor, there- 
first few lines of this routine a:3 

dependent. 
************************************ 

Jove monitor single char inpt 

Carriage return ? 

Yes - return 

Line feed ? 

Yes - return 

Backspace ? 

Yes - return 

Jove monitor single char echc 

Mask off parity bit 
Upper range check (z+1) 
No need to fold - return 
Lower- range check (a) 
No need to fold - return 
Change to one of A-Z 
Return 
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; NEW PAGE IF NEEDED 



; FUNCTION: 

t 

; 

1 CALLED BY: 

; 
; 

CALLS: 
; ARGUMENTS: 



— To clear move list output when the column 
has been filled. 

— DRIVER 
PLYRMV 
CPTRMV 

— DSPBRD 

Returns a 1 in the A register if 
a new page was turned. 



.A******************************************************* 
I 

; Addr of page position counter 

; Increment 

; Page bottom ? 

; No - return 

; Put up new page 

; Re-print titles 

; Set line count back to 1 

; Return 



PGIFND: LXI 


H,LINECT 


INR 


M 


MVI 


A,1BH 


CMP 


M 


RNC 




CALL 


DSPBRD 


PRTLIN 


TITLE4,15 


PRTLIN 


TITLE3,15 


MVI 


A,l 


STA 


LINECT 


RET- 
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* 



************* 



; DISPLAY MATE 
.************* 

; FUNCTION: 

I 

t 



CALLED BY: 
CALLS: 

■ ARGUMENTS: — None 
********************** 



********************************************* 

D KING 
A******************************************** 

— To tip over the computers King when 
mated. 

~ FCDMAT 



— CONVRT 
BLNKER 
INSPCE 



(Abnormal Call to IP04) 



MATED: 



MA08: 



HA0C: 



LDA 

ANA 

JRZ 

MVI 

LDA 

JHPR 

MOV 

LDA 

STA 

STA 

CALL 

MVI 

MVI 

CALL. 

LXI 

PUSH 

PUSH 

PUSH 

PUSH 

PUSH 

PUSH 

JMP 

MVI 

LDA 

STA 

CALL 

RET 



KOLOR 

A 

.+9 

C,2 

POSK+1 

MA08 

C,A 

POSK 

BRDPOS 

ANBDPS 

CONVRT 

A, 7 

B,10 

BLNKER 

Y,MA0C 

Y 

H 

B 

D 

X 

PSW 

IP04 

B,10 

ANBDPS 

BRDPOS 

BLNKER 



************************************** 

Computers color 

Is computer white ? 

Yes - skip 

Set black piece flag 

Position of black King 

Jump 

Clear black piece flag 

Position of white King 

Store King position 

Again 

Getting norm address in HL 

Piece value of toppled King 

Blink parameter 

Blink King position 

Prepare for abnormal call 



; Call INSPCE 
; Blink again 



Return 



84 



A******************************************************** 

SET UP POSITION FOR ANALYSIS 

•A******************************************************* 

FUNCTION: — To enable user to set up any position 
for analysis, or to continue to play 
the game. The routine blinks the board 
squares in turn and the usee has the option 
Of leaving the contents unchanged by a 
carriage return, emptying the square by a 0, 
or inputting a piece of his chosing. To 
enter a piece, type in piece-code, color-code , 
moved-code. 

Piece-code is a letter indicating the 
desired piece: 

K - King 

Q - Queen 

R - Rook 

B - Bishop 

N - Knight 

P - Pawn 

Color code is a letter, W for white, or 
B for black. 

Moved-code is a number. indicates the piece 
has never moved. 1 indicates the piece has 
moved. 

A backspace will back up in the sequence of 
blinked squares. An Escape will terminate 
the blink cycle and verify that the 
position is correct, then ppocede with game 
initialization. 

CALLED BY: — DRIVER 



CALLS: 



— CHARTR 
DPSBRD 
BLNKER 
ROYALT 
PLYRMV 
CPTRMV 

PRTLIN 

EXIT 

CLRSCR 

PRTBLK 

CARRET 



ARGUMENTS: — None 



MACRO CALLS: 



*********** 



**********-t******** ***************************** 
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ANALYE 


: PRTLIN 


ANAMSG,37 


• 




CALL 


CHARTR 


* 
t 




CARRET 




I 




CPI 


4EH 


t 




JRNZ 


AN04 


', 




EXIT 




• 


AN04: 


CALL 


DSPBRD 


", 




HVI 


A, 21 


I 


AN08: 


STA 


ANBDPS 


; 




STA 


BROPOS 






CALL 


CONVRT 






STA 


Ml 






LIXD 


Ml 






MOV 


A, BOARD (X) 






CPI 


0FFH 






JRZ 


AN19 






MVI 


B,4H 






CALL 


BLNKER 






CALL 


CHARTR 






CPI 


1BH 






JRZ 


AN1B 






CPI 


08H 






JRZ 


AN1A 






CPI 


0DH 






JRZ 


AN19 






LXI 


B,7 






LXI 


H,PCS 






CCIR 








JRNZ 


AN18 






CALL 


CHARTR 






CALL 


CHARTR 






CPI 


42H 






JRNZ 


.+4 






SET 


7,C 






CALL 


CHARTR 






CALL 


CHARTR 






CPI 


31H 






JRNZ 


AN18 






SET 


3 f C 




AN18: 


MOV 


BOARD (X) ,C 






CALL 


DSPBRD 




AN19: 


LDA 


ANBDPS 






INR 


A 






CPI 


99 






JRNZ 


AN 08 






JMPR 


AN04 




AN1A: 


LDA 


ANBDPS 





■CARE TO ANALYSE A POSITION?* 

Accept answer 

New line 

Is answer a "N" 7 

No - jump 

Return to monitor 

Current board position 

First board index 

Save 

Norm address into HL register 
Set up board index 

Get board contents 

Boarder square ? 

Yes - jump 

Ready to blink square 

Blink 

Accept input 

Is it an escape ? 

Yes - jump 

Is it a backspace ? 

Yes - jump 

Is it a carriage return ? 

Yes - jump 

Number of types of pieces + ! 

Address of piece symbol tabK- 

Search 

Jump if not found 

Accept and ignore separator 

Color of piece 

Is it black ? 

No - skip 

Black piece indicator 

Accept and ignore separator 

Moved flag 

Has piece moved ? 

No - jump 

Set moved indicator 

Insert piece into board array 

Update graphics board 

Current board position 

Next 

Done ? 

No - jump 

Jump 

Prepare to go back a square 
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SUI 


3 




CPI 


23 




JNC 


AN08 




MVI 


A, 98 


AN0B: 


JMP 


AN 8 


AN1B: 


PRTLIN 


CRTNES.14 




CALL 


CHARTR 




CPI 


4EH 




JZ 


AN 4 




CALL 


ROYALT 




CLRSCR 






CALL 


1NTERR 


AN1C: 


PRTLIN 


WSMOVE,17 




CALL 


CHARTR 




CALL 


DSPBRD 




PRTLIN 


TITLE4,15 




PRTLIN 


TITLE3,15 




CPI 


57H 




JZ 


DRIV04 




PRTBLK 


MVENUM,3 




PRTBLK 


SPACE ,6 




LDA 


KOLOR 




ANA 


A 




JRNZ 


AN20 




CALL 


PLYRMV 




CARRET 






JMP 


DR0C 


AN20: 


CALL 
CARRET 


CPTRMV 




JMP 


DR0C 



; To get around boarder 

1 Off the other end ? 

; No - jump 

; Wrap around to top of screen 

; Jump 

; Ask if correct 

j Accept answer 

; Is it "N" ? 

( Mo - jump 

; Update positions of royalty 

Blank screen 

Accept color choice 

Ask whose move it is 

Accept response 

Display graphics board 

Put up titles 

Is is whites move ? 

Yes - jump 

Print move number 

Tab to blacks column 

Computer's color 

Is computer white ? 

No - jump 

Get players move 

New line 

Jump 

Get computers move 

New line 

Jump 



87 



,*****•**********•*«****•****, 

% UPDATE POSITIONS OF ROYALTY 



FUNCTION: 



CALLED BY: 



CALLS i 



— To update the positions of the Kings 

and Queen after a change of beard position 
in ANALYS. 

— ANALYS 
None 



; ARGUMENTS: 

.************* 

ROY ALT: LXI 
HVI 
MVI 
INX 
DJNZ 
MVI 

RY04: STA 
LXI 
LIXD 
MOV 
BIT 
JRZ 
INX 
AN I 
CPI 
JRZ 
CPI. 
JRNZ 
INX 
INX 

RY08: LDA 
MOV 

RY0C : LDA 
INR 
CPI 
JRNZ 
RET 



None 
*********** 

H,POSK 

B,4 

M,0 

H 

.-3 

A, 21 

Ml 

H,POSK 

Ml 

A , BOARD (X 

7, A 

.+3 

H 

7 

KING 

RY08 

QUEEN 

RY0C 

H 

H 

Ml 

M,A 

Ml 

A 

99 

RY04 



*********************************** 

; Start of Royalty array 
; Clear all four positions 



; First board position 

; Set up board index 

; Address of King position 



1 


Fetch board contents 


; 


Test color bit 


• 
• 


Jump if white 


; 


Offset for black 


; 


Delete flags, leave piece 


• 
• 


King ? 


; 


Yes - jump 


• 
f 


Queen ? 


• 


No - jump 


; 


Queen position 


* 


Plus offset 


i 


Index 


; 


Save 


7 


Current position 


• 


Next position 


• 
> 


Done. ? 


• 


No - jump 


i 


Return 
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SET UP EMPTY BOARD 



FUNCTION: — Diplay graphics boacd and pieces. 

CALLED BY: — DRIVER 
ANALYS 
PGIFND 

CALLS : — CONVRT 
INSPCE 

ARGUMENTS: — None 



NOTES : 



DSPBRD: 



DB04: 



DB08: 





- This 




addr 




the 




syst 




be m 


************** 


PUSH 


B 


PUSH 


D 


PUSH 


H 


PUSH 


PSW 


CLRSCR 




LXI 


H,0C00 


MVI 


M,B0H 


LXI 


D.0C00 


LXI 


B,.15 


LDIR 




MVI 


M , 0AAH 


INR 


L 


MVI 


B,6 


MVI 


M,80H 


INR 


L 


DJNZ 


DB04 


MVI 


B,6 


MVI 


M,0BFH 


INR 


L 


DJNZ 


DB08 


XCHG 




LXI 


B,36 


LDIR 




LXI 


H,0C00 


LXI 


B,0D0H 


LDIR 




LXI 


H,0C01 


LXI 


B,6 



routine makes use of several fixed 

esses in the video storage area of 

Jupiter III computer, and is therefor 

em dependent. Each such reference will 

arked. 
*************************************** 

; Save registers 



0H 



1H 



0H 



6H 



; Blank screen 

; System Dependent-First video 

; address 

; Start of blank border 

; Sys Dep- Sext boarder square 

; Number of bytes to be moved 

I Blank boarder bar 

; First black boarder box 

Next block address 

Number to be moved 

Create white block 

Next block address 

Done ? Wo - jump 

Number of repeats 

Create black box 

Next block address 

Done ? No - jump 

Get ready for block move 

Bytes to be moved 

Move - completes first bar 

S D - First addr to be copied 

Nunber of blocks to move 

Completes first rank 

S D - Start of copy area 

Number of blocks to move 
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LDIR 


• 




LXI 


H,0C010H ; 




LXI 


B,42 i 




LDIR 






LXI 


H,0C100H ; 




LXI 


B,0C0H 




LDIR 






LXI 


H,EC000H ; 




LXI 


B,600H ; 




LDIR 




BSETUP: 


MVI 


A, 21 ; 


BSET0 4: 


STA 


BRDPOS 




CALL 


CONVRT ; 




CALL 


INSPCE ; 




INR 


A ; 




CPI 


99 ; 




JRC 


BSET04 ; 




POP 


PSW ; 




POP 


H 




POP 


D 




POP 


B 




RET 





First black 

S D - Start 

Bytes to be 

Rest of bar 

S D - Start 

Move three bars 

Next rank done 

S D - Copy rest of 

Number of blocks 

Board done 

First board index 

Ready parameter 

Norm addr into HL 

Insert that piece 

Next square 

Done ? 

No - jump 

Restore registers 



square done 

copy area 

moved 

done 

of copy area 



screen 



regtisters 
onto board 
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INSERT PIECE SUBROUTINE 



FUNCTION: — This subroutine places a piece onto a 

given square on the video board. The piece 
inserted is that stored in the board array 
for that square. 



j CALLED BY: 


~ DPSPRD 






MATED 


; CALLS 


• 
* 


— MLTPLY 


j ARGUMENTS: 


— Norm address 






pair HL. 




INSPCE: 


PUSH 


H 




PUSH 


B 




PUSH 


D 




PUSH 


X 




PUSH 


PSW 




LDA 


BRDPOS 




STA 


Ml 




LIXD 


Ml 




MOV 


A, BOARD (X) 




ANA 


A 




JRZ 


IP2C 




CPI 


0FFH 




JRZ 


IP2C 




MVI 


C,0 




BIT 


7, A 




JRZ 


IP04 




MVI 


C2 


IP04: 


AN I 


7 




DCR 


A 




MOV 


E r A 




MVI 


D,16 




CALL 


MLTPLY 




MOV 


A,D 




STA 


INDXER 




LIXD 


INDXER 




BIT 


0,M 




JRZ 


IP08 




INR 


C 


IP08: 


INR 


L 




PUSH 


H 




MVI 


D,0 


IP0C: 


MVI 


B,4 


IP10: 


MOV 


A,BLOCK(X) 




BIT 


# C 



for the square in register 

I****************************** 
j Save registers 



Get board index 

Save 

Index into board array 

Contents of board array 

Is square empty ? 

Yes - jump 

Is it a boarder square ? 

Yes - jump 

Clear flag register 

Is piece white ? 

Yes - jump 

Set black piece flag 

Delete flags, leave piece 

Piece on a 3 - 5 basis 

Save 

Multipl ier 

For loc of piece in table 

Displacement into block table 

Low order index byte 

Get entire index 

Is square white ? 

Yes - jump 

Set compliant flag 

Address o£ first alter block 

Save 

Bar counter 

Block counter 

Bring in source block 

Should it be complemented ? 
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JRZ 


IP14 


1 


No - jump 




XRI 


3FH 


1 


Graphics complement 


IP14: 


MOV 


M,A 


1 


Store block 




INR 


L 


i. 


Next block 




INX 


X 


i 


Next source block 




DJNZ 


:pib 


t 


Done ? No — jump 




MOV 


A,L 


} 


Bar increment 




AD I 


3CH 








MOV 


L,A 








INR 


D 


: 


Bar counter 




BIT 


2,D 


7 


Done ? 




JRZ 


IP0C 


; 


No - jump 




POP 


H 


• 

9 


Address of Norm + 1 




BIT 


0,C 


I 


Is square white ? 




JRNZ 


IP18 


• 
» 


No - jump 




BIT 


l.C 


; 


Is piece white ? 




JRNZ 


IP2C 


w 

• 


No - jump 




JMPR 


IP1C 


• 
t 


Jump 


IP18: 


BIT 


l.C 


t 


Is piece white ? 




JRZ 


IP2C 


• 
• 


Yes - jump 


I PIC: 


MVI 


0,6 


i 


Multiplier 




CALL 


MLTPLY 


• 


Multiply for displacement 




MOV 


A,D 


* 
• 


Kernel table displacement 




STA 


INDXER 


• 


Save 




LIXD 


INDXER 


• 


Get complete index 




MOV 


A,L 


• 
• 


Start of Kernel 




ADI 


40H 








MOV 


L,A 








MVI 


D,0 


; 


Bar counter 


IP20: 


MVI 


B,3 


• 


Block counter 


IP24: 


MOV 


A,KERNEL(X) 


I 


Kernel block 




BIT 


l.C 


; 


Need to complement ? 




JRNZ 


IP28 


; 


No - jump 




XRI 


3FH 


; 


Graphics complement 


IP28: 


MOV 


M,ft 




Store block 




INR 


L 


■ 
f 


Next target block 




INX 


X 


9 


Next source block 




DJNZ 


IP24 


i 


Done ? No - jump 




MOV 


A,L 


m 


Bar increment 




ADI 


3DH 








MOV 


L,A 








INR 


D 


• 
* 


Bar counter 




BIT 


l.D 


; 


Done ? 




JRZ 


IP20 


■ 
• 


Repeat bar move 


IP2C: 


POP 
POP 
POP 
POP 
POP 
RET 


PSW 
X 

D 
B 
H 


» 


Restore registers 
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BOARD INDEX TO NORM ADDRESS SLTBR. 



FUNCTION: 



Converts a hexadecimal board index into 
a Norm address for the square. 



CALLED BY: 


— DSPBRD 




INSPCE 




ANALYS 




MATED 


CALLS: 


— DIVIDE 




MLTPLY 


ARGUMENTS: 


Returns 




HL. 


************************ 


ONVRT: PUSH 


B 


PUSH 


D 


PUSH 


PSW 


LDA 


BRDPOS 


MOV 


D,A 


SUB 


A 


MVI 


E,10 


CALL 


DIVIDE 


DCR 


D 


DCR 


A 


HOV 


C,D 


MVI 


Dj6 


MOV 


E,A 


CALL 


MLTPLY 


MOV 


A,D 


ADI 


10H 


MOV 


L,A 


MVI 


A, 8 


SUB 


C 


ADI 


0C0H 


MOV 


H,A 


POP 


PSW 


POP 


D 


POP 


B 


RET 





the Norm address in register pair 

*********************************** 
; Save registers 



; Get board index 
Set up dividend 



Divi 

Inde 

file 

For 

For 

Save 

Mult 

File 

Givi 

Save 

File 

Low 

Rank 

Rank 

Rank 

High 

Rest 



sor 

x into rank and file 

(1-8) & rank (2-9) 
rank (1-8) 
file (0-7) 

iplier 

number is multiplicand 
ng file displacement 



norm address 
order address byte 

adjust 

displacement 

Norm address 

order addres byte 
ore registers 



Return 
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,... ......... ............... 

; POSITIVE INTEGER DIVISION 









DIVIDE: 


PUSH 


B 




MVI 


B,8 


DD04: 


5LAR 
RAL 


D 




SUB 


£ 




JM 


.+€ 




INR 


D 




JMPR 


.+3 




ADD 


E 




DJNZ 


DD04 




POP 


B 




RET 





.•A********************************************************* 

; POSITIVE INTEGER MULTIPLICATION 

I ********************* *************************** ********** 



MLTPLY: 


PUSH 


B 




SUB 


A 




MVI 


B,8 


ML04: 


BIT 


0,D 




JRZ 


.+3 




ADD 


E 




SRAR 


A 




RARR 


D 




DJNZ 


ML04 




POP 


B 




RE? 
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SQUARE BLINKER 



FUNCTION: 



CALLED BY: 



CALLS: 



To blink the graphics board square to signal 
a piece's intention to move, or to high- 
light the square as being alterable 
in ANALYS. 

— MAKEMV 
ANALYS 
MATED 



None 

ARGUMENTS: — Norm address 

register pai 

blink passed 
***************************** 



BLNKER: 


PUSH 


PSW 




PUSH 


B 




PUSH 


D 




PUSH 


H 




PUSH 


X 




SHLD 


NORM AD 


BL0 4: 


MVI 


D,0 


BL08: 


MVI 


C,0 


BL0C: 


MOV 


A,M 




XRI 


3FH 




MOV 


M,A 




INR 


L 




INR 


C 




MOV 


A,C 




CPI 


6 




JRNZ 


BL0C 




MOV 


A,L 




ADI 


3AH 




MOV 


L,A 




INR 


D 




BIT 


2,D 




JRZ 


BL08 




LHLD 


NORMAD 




PUSH 


B 




LXI 


B,3030H 


BL10: 


DJNZ 


BL10 




DCR 


C 




JRNZ 


BL10 



of desired square passed in 

r HL. Number of times to 

in register B. 
****************************** 

; Save registers 



Save Norm address 
Bar counter 
Block counter 
Fetch block 
Graphics complement 
Replace block 
Next block address 
Increment block counter 

Done ? 

No - jump 

Address 

Adjust square position 

Replace address 

Increment bar counter 

Done ? 

No - jump 

Get Norm address 

Save register 

Delay loop, for visibility 



ft 5 



POP 


B 


DJNZ 


BL04 


POP 


X 


POP 


H 


POP 


D 


POP 


B 


POP 


PSW 


RET 





; Restore register 
; Done ? No - jump 
j Restore registers 



; Return 
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EXECUTE MOVE SUBROUTINE 



FUNCTION: 



CALLED BY: 



CALLS : 

ARGUMENTS: 

.******•****** 

EXECMV: PUSH 
PUSH 
LIXD 
MOV 
MOV 
CALL 
MOV 
MVI 
BIT 
JRZ 
LXI 
DADX 
MOV 
MOV 
MOV 
CMP 
JRNZ 
INR 
JMPR 
EX04: CPI 
JRNZ 
SET 
JMPR 
EX08: CPI 
JRNZ 
SET 
JMPR 
EX0C: SET 
EX10: CALL 
EX14: POP 
POP 
RET 



This routine is the control routine for 
MAKEMV. It checks for double moves and 
sees that they are properly handled. It 
sets flags in the B register for double 
moves: 

En Passant — Bit 

0-0 — Bit 1 

0-0-0 — Bit 2 

PLY.RMV 

CPTRMV 



— MAKEMV 

Flags set 

above. 
************** 

X 

PSW 

MLPTRJ 

C,MLFRP(X) 

E,MLTOP(X) 

MAKEMV 

D,MLFLG(X) 

B,0 

6,D 

EXJ4 

D, 6 

D 

C,MLFRP(X) 

E,MLTOP(X) 

A,E 

C 

EX04 

B 

EX10 

1AH 

EX08 

ItB 

EX10 

60H 

EXflC 

l.B 

EX10 

2,B 

MAKEMV 

PSW 

X 



in the B register as described 

a**************************** 
j Save registers 



Index into move list 
Move list "from - position 
Move list "to" position 
Produce move 
Move list flags 

Double move ? 

No - jump 

Move list entry width 

Increment MLPTRJ 

Second "from" position 

Second "to" position 

Get "to" position 

Same as "from" position ? 

No - jump 

Set en passant flag 

Jump 

White 0-0 ? 

No - jump 

Set 0-0 flag 

Jump 

Black 0-0 ? 

No - jump 

Set 0-0 flag 

Jump 

Set 0-0-0 flag 

Make 2nd move on board 

Restore registers 

; Re t u r n 
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MAKE MOVE SUBROUTINE 

•a********************************************** ********** 



FUNDTION; 



Moves the piece on the board when a move 
is made. It blinks both the "from" and 
"to" positions to give notice of the move. 



CALLED BY: — EXECMV 



CALLS; 



ARGUMENTS: 



— CONVRT 
BLNKER 
INSPCE 

— The "from" 
C, and the 



********************** 

1 


MAKEMV: PUSH 


PSW 


PUSH 


B 


PUSH 


D 


PUSH 


H 


MOV 


A,C 


STA 


BRDPOS 


CALL 


CONVRT 


MVI 


B,10 


CALL 


BLNKER 


MOV 


A,M 


INR 


L 


MVI 


D,0 


MM04": MVI 


B,4 


MM08: MOV 


M,A 


INR 


L 


DJNZ 


MM 08 


MOV 


C,A 


MOV 


A,L 


ADI 


3CH 


MOV 


L,A 


MOV 


A,C 


INR 


D 


BIT 


2,D 


JRZ 


MM34 


MOV 


A,E 


STA 


BRDPOS 


CALL 


CONVRT 


MVI 


B,10 


CALL 


INSPCE 


CALL 


BLNKER 


POP 


H 


POP 


D 


POP 


B 


POP 


PSW 



position is passed in register 
"to" position in register E. 
********************************* 

; Save register 



"From" position 

Set up parameter 

Getting Norm address in HL 

Blink parameter 

Blink "from" square 

Bring in Norm block 

First change block 

Bar counter 

Block counter 

Insert blank block 

Next change block 

Done ? No - jump 

Saving norm block 

Bar increment 



Restore Norm block 

Done ? 

No - ju.iip 

Get "to" position 

Set up parameter 

Getting Norm address in HL 

Blink parameter 

Inserts the piece 

Blinks "to" square 

Restore registers 



RET 



; Return 
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TDLIZISAiG Mnemonics Conversion 

Symbols Used 

SYMBOL OPERATION 

r one of the 8-bit registers A,B,C,D,E,H,L 

tv any 8-bit absolute value 

11 an index register reference, either X or Y 

d an 8-bit index displacement, where -128< d< 127 

Z2 B for the BC register pair, D for the DE pair 

nn any 16-bit value, absolute or relocatable 

rr B for the BC register pair, D for the DE pair, H for the 

HL pair, SP for the stack pointer 

qq B for the BC register pair, D for the DE pair, H for the 

HL pair, PSW for the A/ Flag pair 

s any of r (defined above), M, or d(ii) 

IFF Interrupt flip-flop 

CY carry flip-flop 

ZF zero flag 

tt B for the BC register pair, D for the DE pair, SP for the 

stack pointer, X for index register IX 

uu B for the BC register pair, D for the DE pair, SP for the 

stack pointer, Y for Index register IT 

b a bit position in an 8-bit byte, where the bits are 

numbered froa right to left to 7 

PC program counter 

b{n} bit n of the 8-bit value or register v 

w/H the most significant byte of the 16-bit value or 

register w 

w/L the least significant byte of the 16-bit value or 

register w 
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Iv 
Ov 

V «■ V 



an input operation on port v 

an output operation on port v 

the value of w is replaced by the value of v 

the value of w is exchanged with the value of v 



8 Bit Load Group 



TDL 

MNEMONIC 

MOV r,r' 
MOV r,M 
MOV r,d(ii) 
MOV M,r 
MOV d(ii),r 
MVI r,n 
MVI M,n 
MVI d(ii),n 
LDA nn 
STA nn 
LDAX zz 
STAX zz 
LDAI 
LDAR 
STAI 
STAR 
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OPERATION 
r + r' 
r ■*■ (HL) 
r +■ (ii+d) 
(HL) +- r 
(ii+d) * r 
r *■ n 
(HL) *■ n 
(ii+d) * n 
A * (nn) 
(nn) + A 
A <• (zz) 
(zz) *■ A 
A * I 
A * R 
I - A 
R * A 



ZILOG 


t 07 


OF 


MNEMONIC 


BYTES 


T STATES 


LD r,r' 


1 


k 


LD r,(HL) 


1 


7 


LD r/Iii+d) 


3 


19 


LD (HL),r 


1 


7 


LD (Iii+d),r 


3 


19 


LD r,n 


2 


7 


LD (HL),n 


2 


10 


LD (Iii+d),n 


k 


19 


LD A,(nn) 


3 


13 


LD (nn) ,A 


3 


13 


LD A, (zz) 


1 


7 


LD (zz),A 


1 


7 


LD A, I 


2 


9 


LD A,R 


2 


9 


LD I, A 


2 


9 


LD R,A 


2 


9 



16 Bit Load Group 



TDL 
MNEMONIC 


OPERATION 


ZILOG 

MNEMONIC 


# OF 

BYTES 


9 OF 

T STATES 


LXI rr,nn 


rr * nn 




LD rr.nn 


3 


10 


LXI ii.nn 


ii ■*■ nn 




LD ii.nn 


4 


14 


LBCD nn 


B +■ (nn+1) 
C ♦ (nn) 


LD BC,(nn) 


4 


20 


LDED nn 


D +■ (nn+1) 
E ♦ (nn) 


LD DE,(nn) 


4 


20 


LHLD nn 


H +■ (nn+1) 
L * (nn) 


LD HL,(nn) 


3 


16 


LIXD nn 


IX/H +- (nn+1) 
IX/L *■ (nn) 


LD IX, (nn) 


4 


20 


LTYD nn 


IY/H + (nn+1) 
IY/L * (nn) 


LD IY,(nn) 


4 


20 


LSPD nn 


SP/H -«- (nn+1) 
SP/L * (nn) 


LD SP, (nn) 


4 


20 


SBCD nn 


(nn+1) ♦ 
(nn) ♦ 


B 
C 


LD (nn) ,BC 


4 


20 


SDED nn 


(nn+1) *■ 
(nn) * 


D 
E 


LD (nn) ,DE 


4 


20 


SHLD nn 


(nn+1) «- 

(nn) •*- 


a 

L 


LD (nn),HL 


3 


16 


SIXD nn 


(nn+1) + 
(nn) i- 


IX/H 
IX/L 


LD (nn).IX 


4 


20 


SIYD nn 


(nn+1) * 
(nn) * 


IY/H 
IY/L 


LD (nn),IY 


4 


20 


SSPD nn 


(nn+1) * 
(nn) * 


SP/H 
SP/L 


LD (nn),SP 


4 


20 


SPHL 


SP *■ HL 




LD SP.HL 


1 


6 


SPIX 


SP * IX 




LD SP.IX 


2 


10 


SPIY 


SP + IY 




LD SP.IY 


2 


10 
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PUSH qq (SP-1) * qq/H PUSH qq 1 11 

(SP-2) * qq/L 
SP * SP-2 

PUSH ii (SP-1) «■ ii/H PUSH 11 2 15 

(SP-2) «*■ Il/L 
SP ♦ SP-2 

POP qq qq/H * (SP-1) POP qq 1 10 

qq/L * (SP) 
SP * SP-2 

POP 11 il/H *- (SP+1) POP 11 2 14 

11/L * (SP) 
SP * SF+2 
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Exchange, Block Transfer, and Search Group 



TDL 
MNEMONIC 


OPERATION 


ZILOG 
MNEMONIC 


# OF 

BYTES 


* OF 

T STATES 


XCHG 


HL ■♦-•■DE 


EX DE.HL 


1 


4 


EXAF 


PSW ++FSW' 


EX AF.AF* 


1 


4 


EXX 


BCDEHL ••— BCDEHL' 


EXX 


1 


4 


XTHL 


H ^-+(SP+1) 
L +-f(SP) 


EX (SP),HL 


1 


19 


XTIX 


IX/H -^(SP+1) 
IX/L ++(SP) 


EX (SP),IX 


2 


23 


XTIY 


IY/H -~(SP+1) 
IY/L -h+(SP) 


EX (SP),IY 


2 


23 


LDI 


(DE) + (HL) 

DE +■ DE+1 
HL + HL+1 
BC *■ BC-1 


LDI 


2 


16 


LDIR 


repeat LDI until BC=0 


LDIR 


2 


21/16 


LDD 


(DE) +■ (HL) 
DE ■*- DE-1 
HL + HL-1 
BC +- BC-1 


LDD 


2 


16 


LDDR 


repeat LDD until BC=j5 


LDDR 


2 


21/16 


CCI 


A - (HL) 

HL *- HL+1 
BC *■ BC-1 


CPI 


2 


16 



CCIR 



CCD 



CCDR 



repeat CCI until A=(HL) CPIR 
or BC=0 

A - (HL) CPD 

HL * HL-1 
BC ■*• BC-1 

repeat CCD until A=(HL) C?DR 
or BC=0 



2 
2 



21/16 

16 

21/16 
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8 Bit Arithmetic and Logical 



TDL 

MNEMONIC 

ADD r 
ADD M 
ADD d(ii) 
ADI n 
ADC s 
ACI n 
SUB s 
SUI n 
SBB s 
SBI n 
ANA s 
ANI n 
ORA s 
ORI n 
XRA s 
XRI n 
CMP s 
CPI n 
INR r 
INR M 
INR d(ii) 
DCR r 
DCR M 
DCR d(ii) 
104 



OPERATION 

A * A + r 

A * A + (HL) 

A * A + (li+d) 

A * A + n 

A ♦ A +'b + CY 

A * A + n + CY 

A ♦ A - s 

A * A - n 

A * A - s - CY 

A + A - n - CY 

A •*• A A s 

A * A A n 

A + A v s 

A * A v n 

A * A$ s 

A «- A $11 

A - s 

A - 

r ■*■ r + 1 

(HL) +- (HL) + 1 

(ii+d) ■<- <Ii+d) + 1 

r +■ r - 1 

(HL) +• (HL) - 1 

(ii+d) +■ (ii+d) - 1 



ZILOG 
MNEMONIC 

ADD A,r 

ADD A,(HL) 

ADD A;(IH+d) 

ADD A,n 

ADC A,s 

ADC A,n 

SUB s 

SUB n 

SBC A,s 

SBC A,n 

AND s 

AND n 

OR s 

OR n 

XOR s 

XOR n 

CP s 

CP n 

INC r 

INC (HL) 

INC (Iil+d) 

DEC r 

DEC (HL) 

DEC (I ii+d) 



# OF 9 OF 
BYTES T STATES 

1 4 

1 7 
3 19 

2 7 

As shown for 
ADD instruction 



General Purpose Arithmetic and Control Group 



TDL 

MNEMONIC 

DAA 



OPERATION 

convert A to packed BCD 
after an add or subtract 
of packed BCD operands 



ZILOC 
MNEMONIC 

DAA 



* 07 

BYTES 



OF 

T STATES 



CMA 


A *■ ^A 






CPL 


1 


4 


NEG 


A * -A 






NEG 


2 


8 


CMC 


CT *■ "<X 






CCF 


1 


4 


STC 


CY ■«- 1 






SCF 


1 


4 


NOP 


no operation 




NOP 


1 


4 


HLT 


halt 






HALT 


1 


4 


DI 


IFF +- 






DT 


1 


4 


EI 


IFF * 1 






EI 


1 


4 


IM0 


interrupt 


mode 


IK 


2 


8 


mi 


interrupt 


mode 


1 


IM 1 


2 


8 


IM2 


interrupt 


mode 


2 


IM 2 


2 


8 
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16 Bit Arithmetic Group 



TDL 




MNEMONIC 


DAD 


rr 


DADC 


rr 


DSBC 


rr 


DADX 


tt 


DADY 


uu 


INX 


rr 


INX 


ii 


DCX 


rr 


DCX 


ii 



OPERATION 

HL «- HL + rr 

HL ■*- HL + rr + CY 

HL +■ HL - rr - CY 

IX * LX + tt 

IY * IY + uu 

rr >•- rr + 1 

li * ii + 1 

rr ♦ rr - 1 

ii + ii - 1 



ZILOG 


f 


OF 


f 


OF 


MNEMONIC 


BYTES 


T 


STATES 


ADD HL.rr 




1 




11 


ADC HL.rr 




2 




15 


SBC HL.rr 




2 




15 


ADD IX, tt 




2 




15 


ADD IY.uu 




2 




15 


INC rr 




1 




6 


INC ii 




2 




10 


DEC rr 




1 




6 


DEC ii 




2 




10 
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Rotate and Shift Group 



TDL 

MNEMONIC 

RLC 


OPERATION 


ZILOC 

MNEMONIC 


# OF 

BYTES 


I 

T 


OF 

STATES 

4 


I 1 


RLCA 


1 






[CTJ^Lj; + $ +j 






A 




RAL 




RLA 


1 
1 




4 




■ ' "! 




1CYK 7. ^ «J 






A 


4 


RRC 


f | 


RRCA 






U 7 h. XjcY] 






A 


4 


RAR 


1 , 1 


RRA 
RLC r 


1 

2 






U- 7 -+ -+|CYH 




RICR r 


A 

Same diagram as 
for RLC 


8 


RLCR M 


■• 


RLC (HL) 


2 




15 


RLCR d(ii) 


11 


RLC (Iii+d) 


4 




23 


RALR s 


Sane diagram as 
for RAL 


RL s 


Same as for RLCR 
instruction 


RRCR s 


Same diagram as 
for RRC 


RRC s 








RARR s 


Same diagram as 
for RAR 


RR s 
SLA s 

SRA s 








SLAR s 


|cyJ-LZ ^Jj* 

s 




SRAR s 


H7 * 0I-ICYI 
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SRLR ■ 



RLD 



RRD 



** 7 


-► 


rl 


^ 


• 








A F 


aI 


3 


e 




(HL) J_ 


A 


3 


,0 




t- 




1 


a rr 


4 


3 


9\ 




(HL)Li 


A 


3 


9\ 




L 




t 



18 



18 



Bit Set, Reset, »****' 



Group 



TDL 
MNEMONIC . 

BIT b,r 

BIT b t M 

BIT b,d(il) 

SET b,r 

SET b,m 

SET b,d(ii) 

RES b,s 



OPERATION 
ZF +- ^r{b} 
ZF *■ -v(HL){b} 
ZF «- ^(Ili+dHb) 
r{bK 1 
(HL){b) * 1 
(Iii+d){b} *• 1 
S{b} * 



«ir»'.' I11+d) 
jcir»' 01L) 



# OF 

BYTES 

2 
2 

A 
2 
2 
A 



ff OF 

T STATE 5 

8 

12 

20 
8 

15 

23 



Same as for 
SET instruction 
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Jump Group 



TDL 


MNEMONIC 


JMP nn 


JZ nn 


JNZ nn 


JC nn 


JNC nn 


JPO nn 


JPE nn 


JP nn 


JM nn 


JO nn 


JNO nn 


JMPR nn 



JR2 nn 

JRNZ nn 
JRC nn 
JRNC nn 
DJNZ nn 

PCHL 
PCIX 
PCIY 



OPERATION 


ZILOG 
MNEMONIC 


9 OF 

BYTES 


# OF 

T STATES 


PC ■*- nn 


JP 


nn 


3 


10 


If zero, then JMP 
else continue 


JP 


Z.nn 


3 


10 


If not zero 


JP 


NZ.nn 


3 


10 


if carry 


JP 


C.nn 


3 


10 


if not carry 


JP 


NC.nn 


3 


10 


if parity odd 


JP 


PO.nn 


3 


10 


if parity even 


JP 


PE.nn 


3 


10 


if sign positive 


JP 


P,nn 


3 


10 


if sign negative 


JP 


M,nn 


3 


10 


if overflow 


JP 


FE.nn 


3 


10 


if no overflow 


JP 


PO.nn 


3 


10 


PC *■ PC + e 

where e ■= nn - PC 
-126< e< 129 


JR 


e 


2 


12 



if zero, then JMPR 
else continue 

if not zero 

if carry 

if not carry 

B «- B - 1 

if B=0 then continue 

else JMPR 

PC *■ HL 

PC *■ IX 

PC +■ IY 



JR Z,e 



7/12 



JR NZ.e 


2 


7/12 


JR C,e 


2 


7/12 


JR NC.e 


2 


7/12 


DJNZ e 


2 


8/13 



JP (HL) 


1 


4 


JP (IX) 


2 


8 


JP (IY) 


2 


8 
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Call and Return Group 



TDL 

MNEMONIC 


OPERATION 


ZILOC 
MNEMONIC 


t OF 

BYTES 


# OF 

T STATES 


CALL mi 


(SP-1) *■ PC/H 

(SP-2) «- PC/L 

SP *■ SP-2 

PC *■ nn 


CALL nn 


3 


17 


CZ nn 


if zero, then CALL 
else continue 


CALL Z,nn 


3 


10/17 


CNZ Tin 


if 


not zero 


CALL NZ.nn 


3 


10/17 


CC nn 


if 


tarry 


CALL C,nn 


3 


10/17 


CNC nn 


if 


not carry 


CALL NC.nn 


3 


10/17 


CPO nn 


if 


parity odd 


CALL PO.nn 


3 


10/17 


CPE nn 


if 


parity even 


CALL PE.nn 


3 


10/17 


CP nn 


if 


sign positive 


CALL P,nn 


3 


10/17 


CM nn 


if 


sign negative 


CALL M.nn 


3 


10/17 


CO nn' 


if 


overflow 


CALL PE.nn 


3 


10/17 


CNO nn 


if 


no overflow 


CALL PO,nn 


3 


10/17 


RET 


PC/H +- (SP+1) 
PC/L + (SP) 
SP * SP+2 


RET 




10 


RZ 


if zero, then RET 
else continue 


RET Z 




5/11 


RNZ 


if 


not zero 


RET NZ 




5/11 


RC 


if 


carry 


RET C 




5/11 


RNC 


if 


not carry 


RET NC 




5/11 


RPO 


if 


parity odd 


RET PO 




5/11 


RPE 


if 


parity even 


RET PE 




5/11 


RP 


if 


sign positive 


RET P 




5/11 


RM 


if 


sign negative 


RET M 




5/11 
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RO 


If overflow 


RET PE 


1 


5/11 


RNO 


If no overflow 


RET PO 


1 


5/11 


RETI 


return from Interrupt 


RETI 


2 


14 


RETN 


return from non- 
maskable interrupt 


RETN 


2 


14 


RST n 


(SP-1) * PC/H 
(SP-2) *■ PC/L 
PC *■ 8 * n 
where 0£ n< 8 


RST n 


1 
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Input and Output Group 



TDL 

MNEMONIC 


OPERATION 


ZILOG 
MNEMONIC 


# OF 

BYTES 


t OF 

T STATES 


IN n 


A ♦ In 




IN A, 


(n) 


2 


11 


INP r 


r * 1(C) 


IN r, 


(C) 


2 


12 


INI 


(HL) - 

B ♦ 
HL ♦ 


KC) 

*- 1 
HL + 1 


INI 




2 


16 


INIR 


repeat 


INI until B-0 


INIR 




2 


16/21 


IND 


(HL) *■ 
B «- 

HL *■ 


KC) 
B - 1 
HL - 1 


IND 




2 


16 


INDR 


repeat 


IND until B=0 


INDR 




2 


16/21 


OUT n 


On * A 




OUT ( 


n),A 


2 


11 


OUTP r 


0(C) *■ 


r 


OUT (C),r 


2 


12 


OUTI 


0(C) * 

B * 
HL * 


(HL) 
B - 1 
HL + 1 


OUTI 




2 


16 


OUTIR 


repeat 


OUTI until B=0 


OTIR 




2 


16/21 


OUTD 


0(C) ♦ 

B + 
HL * 


(HL) 
B - 1 
HL - 1 


OUTD 




2 


16 



OUTDR 



repeat OUTD until R°0 



OTDR 



16/21 
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INDEX TO SUBROUTINES 



ADJPTR 


33 


ADMOVE 


36 


ANALYS 


85 


ASCEND 


64 


ASNTBI 


80 


ATKSAV 


42 


ATTACK 


39 


BITASN 


76 


BLNKER 


94 


BOOK 


65 


CASTLE 


34 


CHARTR 


82 


CONVRT 


93 


CPTRMV 


73 


DIVIDE 


93 


DRIVER 


69 


DSPBRD 


89 


ENPSNT 


32 


EVAL 


60 


EXECMV 


97 


FCDMAT 


75 


FNDMOV 


59 


GENMOV 


38 


INCHK 


3£ 


INITBD 


27 


1NSPCE 


91 


INTERR 


71 


LIMIT 


51 


MAKEMV 


9S 


MATED 


64 


MLTPLY 


94 


MOVE 


54 


MPIECE 


30 
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NEXTAD 


49 


PATH 


29 


PGIFND 


83 


PINFND 


44 


PLYRMV 


79 


PNCK 


43 


POINTS 


49 


ROYALT 


88 


SORTM 


58 


TBCPCL 


78 


TBPLCL 


76 


TBPLMV 


78 


UNMOVE 


56 


VALMOV 


80 


XCHNG 


47 
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